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

procedure citire;
  begin
    readln(f,n,m);
    for i:=1 to m do
      begin
        read(f,a,b);
        v[a]:=v[a] or 1 shl (b-1);
        v[b]:=v[b] or 1 shl (a-1);
      end;
  end;

procedure rezolvare;
  begin
    for i:=1 to n do
      for j:=i+1 to n do
        if v[i] and (1 shl (j-1))>0 then
          for k:=j+1 to n do
            if (v[i] and (1 shl (k-1))>0) and (v[j] and (1 shl (k-1))>0) then
              nr:=nr+1;
    writeln(g,nr);
  end;

  begin
    assign(f,'triplete.in'); reset(f);
    assign(g,'triplete.out'); rewrite(g);
    citire;
    rezolvare;
    close(f);
    close(g);
  end.