const fff=96;
      ffk=fff div 16;
var t:text;
    ad:array[0..fff,0..ffk] of word;
    hany:longint;
    i,j,k,l,m,n,ne,u:longint;
    kh:array[0..15] of word;

procedure ert(x,ho,mi:integer);
          var se,os:integer;
          begin
          se:=ho div 16;
          os:=(ho mod 16);

          ad[x,se]:=ad[x,se]+kh[os];
          end;

begin
     kh[0]:=1;
     for i:=1 to 15 do kh[i]:=kh[i-1]*2;
     assign(t,'triplete.in');
     reset(T);
      read(t,n,m);
      ne:=(n div 16)-1;
      if n mod 16>0 then ne:=ne+1;

      for i:=1 to n do for j:=1 to ne do ad[i,j]:=0;

      for i:=1 to m do begin
                       read(t,j,k);
                       ert(j,k,1);
                       ert(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:=0 to ne do
                      ad[0,l]:=ad[j,l] and ad[k,l];

                      for l:=0 to ne do
                       for u:=0 to 15 do
                       hany:=hany+(ad[0,l] shr u) mod 2;
                      end;

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

end.