const MAX=20;
var f,g:text;
    a:array[1..MAX,1..MAX] of byte;
    v:array[0..MAX*MAX*MAX] of byte;
    t,n1,n2,n3,nt,x,y,n,m,i,j,k,num:integer;


begin
  assign(f,'triplete.in');
  reset(f);
  read(f,n,m);
  for i:=1 to m do begin
    read(f,x,y);
    a[x,y]:=1;
    a[y,x]:=1;
  end;
  close(f);

  reset(f);
  readln(f);
  for t:=1 to m do begin
    read(f,i,j);
    for k:=1 to n do begin
      if a[i,k]*a[k,j]<>1 then continue;
      n1:=i;n2:=j;n3:=k;
      if n1>n2 then begin x:=n1;n1:=n2;n2:=x;end;
      if n1>n3 then begin x:=n1;n1:=n3;n3:=x;end;
      if n2>n3 then begin x:=n2;n2:=n3;n3:=x;end;
      nt:=n*n*n1+n*n2+n3;
      if v[nt]=0 then begin
        v[nt]:=1;
        inc(num);
      end;

    end;
  end;
  close(f);

  assign(g,'triplete.out');
  rewrite(g);
  writeln(g,num);
  close(g);

end.