const fff=4096;
var t:text;
    ad:array[1..fff,1..fff] of byte;
    hany:longint;
    i,j,k,l,m,n:longint;

begin
     assign(t,'triplete.in');
     reset(T);
      read(t,n,m);
      for i:=1 to n do for j:=1 to n do ad[i,j]:=0;
      for i:=1 to m do begin
                       read(t,j,k);
                       ad[j,k]:=1;
                       ad[k,j]:=1;
                       end;
     close(T);
     reset(T);
      read(t,n,m);
      hany:=0;
     for i:=1 to m do begin
                      read(t,j,k);
                      for l:=1 to n do
                      hany:=hany+(ad[j,l] and ad[k,l]);
                      end;

     close(T);
     assign(t,'triplete.out');
     rewrite(t);
     writeln(t,hany div 3);
     close(T);

end.