const inf=;

 type node=record

        next,point,flow:longint;

      end;

 var edge:array[..] of node;

     he,li,cur,p,numh,pre,h,d:array[..] of longint;

     a:array[..,..] of boolean;

     k,i,j,n,m,x,y,len,t:longint;

 function min(a,b:longint):longint;

   begin

     if a>b then exit(b) else exit(a);

   end;

 procedure add(x,y,f:longint);

   begin

     inc(len);

     edge[len].point:=y;

     edge[len].flow:=f;

     edge[len].next:=p[x];

     p[x]:=len;

   end;

 function sap:longint;

   var u,i,j,neck,tmp,q:longint;

   begin

     neck:=inf;

     u:=;

     numh[]:=t+;

     h[]:=;

     sap:=;

     for i:= to t do

       cur[i]:=p[i];

     while h[]<t+ do

     begin

       d[u]:=neck;

       i:=cur[u];

       while i<>- do

       begin

         j:=edge[i].point;

         if (edge[i].flow>) and (h[u]=h[j]+) then

         begin

           neck:=min(neck,edge[i].flow);

           pre[j]:=u;

           cur[u]:=i;

           u:=j;

           if u=t then

           begin

             sap:=sap+neck;

             while u<> do

             begin

               u:=pre[u];

               j:=cur[u];

               dec(edge[j].flow,neck);

               inc(edge[j xor ].flow,neck);

             end;

             neck:=inf;

           end;

           break;

         end;

         i:=edge[i].next;

       end;

       if i=- then

       begin

         dec(numh[h[u]]);

         if numh[h[u]]= then exit;

         tmp:=t;

         i:=p[u];

         q:=-;

         while i<>- do

         begin

           j:=edge[i].point;

           if edge[i].flow> then

             if h[j]<tmp then

             begin

               tmp:=h[j];

               q:=i;

             end;

           i:=edge[i].next;

         end;

         h[u]:=tmp+;

         cur[u]:=q;

         inc(numh[h[u]]);

         if u<> then

         begin

           u:=pre[u];

           neck:=d[u];

         end;

       end;

     end;

   end;

 begin

   len:=-;

   fillchar(p,sizeof(p),);

   readln(n,m,k);

   t:=n+m+;

   for i:= to n do

     read(he[i]);

   for i:= to m do

     read(li[i]);

   for i:= to k do

   begin

     readln(x,y);

     a[x,y]:=true;

     inc(he[x]);

     inc(li[y]);

   end;

   for i:= to n do

   begin

     if he[i]>m then

     begin

       writeln('JIONG!');

       halt;

     end;

     add(,i,m-he[i]);

     add(i,,);

   end;

   for i:= to m do

   begin

     if li[i]>n then

     begin

       writeln('JIONG!');

       halt;

     end;

     add(i+n,t,n-li[i]);

     add(t,i+n,);

   end;

   for i:= to n do

     for j:= to m do

       if not a[i,j] then

       begin

         add(i,j+n,);

         add(j+n,i,);

       end;

   writeln(n*m-k-sap);

 end.