var f,g:text;
    a:array[1..4096,1..4096] of byte;
    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;
  for i:=1 to n-2 do
    for j:=i+1 to n-1 do
      if a[i,j]=1 then
        for k:=j+1 to n do
          if (a[i,k]*a[k,j]=1) then inc(num);
  assign(g,'triplete.out');
  rewrite(g);
  writeln(g,num);
  close(g);

end.