program animale;
var f,g:text;
    a:array[1..4096,1..4096] of 0..1;
    n,m,i,j,k,x:word;
begin
assign(f,'triplete.in');
assign(g,'triplete.out');
reset(f); rewrite(g);
read(f,n,m);
for i:=1 to m do
        begin
        read(f,x,j);
        a[x,j]:=1;
        a[j,x]:=1;
        end;
x:=0;
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[j,k]=1) and (a[k,i]=1) then
                                                                        x:=x+1;
writeln(g,x);
close(f); close(g);
end.