var a:array[1..200,1..200] of 0..1;
    an,rel:array[1..10000] of 1..200;
 i,j,n,m,k,t:integer;f:text;
begin
assign(f,'triplete.in');reset(f);
 read(f,n);readln(f,m);
  for i:=1 to m do
   begin
    read(f,an[i]);readln(f,rel[i]);
  end;
 for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=0;
for i:=1 to m do
 if (an[i]>rel[i]) then
  a[rel[i],an[i]]:=1 else
  a[an[i],rel[i]]:=1;
{for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]);
 writeln;
end;}
 for i:=1 to n-1 do
  for j:=1 to n-1 do
   if a[i,j]=1 then
    for t:=j+1 to n do
     if (a[i,t]=1)and((a[j,t]=1)or(a[t,j]=1)) then
      k:=k+1;
      close(f);
assign(f,'triplete.out');rewrite(f);
  writeln(f,k);
close(f);
 end.