var f,t:text;
    a:array[1..4096,1..4096] of boolean;
    i,n,s,j,k:integer;
    m:longint;
begin
assign(f,'triplete.in');
assign(t,'triplete.out');
reset(f);
read(f,n);readln(f,m);
for k:=1 to m do begin
                 read (f,i);
                 readln(f,j);
                 a[i,j]:=true;
                 end;
close(f);
s:=0;
for i:=1 to n do
  for j:=1 to n do
    if a[i,j] then
      for k:=1 to n do if ((a[i,k] or a[k,i])and(a[j,k] or a[k,j])) then inc(s);

s:=s div 3;
rewrite(t);
writeln(t,s);
close(t);
end.