program triplete;
var x,y: array[1..65536] of longint;
    A:array[1..1000,1..1000] of byte;
    m,n,i,j,r,rez: longint;


begin
  assign(input,'triplete.in');
  reset(input);
  readln(n,m);
  for i:=1 to m do
  begin
    readln(x[i],y[i]);
    A[x[i],y[i]]:=1;
  end;
  rez:=0;
  for i:=1 to m do
  begin
    r:=0;
    for j:=1 to n do
      r:=r+A[x[i],j]*A[y[i],j];
    rez:=rez+r;
  end;
  assign(output,'triplete.out');
  rewrite(output);
  write(rez);
  close(input);
  close(output);
end.