program triplete;
var  f,g:text;
    m:longint;
    i,k,j,a,b,n:integer;
    c:array[1..200,1..200] of 0..1;
begin
assign(f,'triplete.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
   for j:=1 to n do c[i,j]:=0;
for i:=1 to m do
  begin
    readln(f,a,b);
    c[b,a]:=1;
    c[a,b]:=1;
  end;
close(f);
for i:=1 to n do
  begin
    for j:=1 to n do write(c[i,j],' ');
    writeln;
  end;
a:=0;
for i:=1 to n do
  for j:=1 to i-1 do
     for k:=j+1 to i do
        if (c[i,j]=1)and(c[i,k]=1)and(c[j,k]=1) then inc(a);
assign(g,'triplete.out');
rewrite(g);
writeln(g,a);
close(g);
end.