const maxn=500;
var t:text;
   uz:array[0..maxn,0..maxn]of boolean;
   sol,i,n,m,a,b:longint;
begin
   assign(T,'triplete.in');reset(t);readln(t,n,m);
   for i:=1 to M do begin readln(T,a,b);uz[a,b]:=true;uz[b,a]:=true;end;
   close(T);
   for a:=1 to N do for b:=a+1 to N do for i:=b+1 to N do
   if uz[a,b]and uz[b,i]and uz[b,a] then inc(sol);
   assign(T,'triplete.out');rewrite(T);writeln(T,sol);close(T);
end.