program df;
var f,g:text;
a:array[1..4096,1..4096] of 0..1;
nr,n,m,i,j,k:longint;

begin
assign(f,'triplete.in');
assign(g,'triplete.out');
reset(F);
rewrite(g);
readln(f,n,m);
for i:=1 to m do
        begin
        readln(f,k,nr);
        a[nr,k]:=1;
        a[k,nr]:=1;
        end;
nr:=0;
for i:=1 to n do
        for j:=i+1 to n do
        if a[i,j]=1 then
                for k:=j+1 to n do
                        if (a[j,k]=1) and(a[i,k]=1) then nr:=nr+1;
writeln(g,nr);
close(f);
close(g);
end.