program triplete;
 type vect = array[1..65536] of record
                                  x,y: 0..4096;
                               end;
 var a: vect;
     n,m,i,j,k,nr:integer;
     f: text;
 begin
   assign(f,'triplete.in'); reset(f);
     read(f,n,m);
     for i:=1 to m do begin
       read(f,a[i].x,a[i].y);
     end;
   Close(f);

   nr := 0;

   for i:=1 to m do begin

     for j:=i+1 to m do begin

       if (a[i].x = a[j].x) or (a[i].x = a[j].y) or (a[i].y = a[j].x) or
          (a[i].y = a[j].y) then

          for k:=j+1 to m do

            if ( (a[i].x = a[k].x) and (a[j].x = a[k].y ) ) or
               ( (a[i].x = a[k].x) and (a[j].y = a[k].y ) ) or
               ( (a[i].y = a[k].x) and (a[j].x = a[k].y ) ) or
               ( (a[i].y = a[k].x) and (a[j].y = a[k].y ) ) or

               ( (a[i].x = a[k].y) and (a[j].x = a[k].x ) ) or
               ( (a[i].x = a[k].y) and (a[j].y = a[k].x ) ) or
               ( (a[i].y = a[k].y) and (a[j].x = a[k].x ) ) or
               ( (a[i].y = a[k].y) and (a[j].y = a[k].x ) )
            then
             inc(nr);

     end;


   end;

   assign(f,'triplete.out'); rewrite(f);
     write(f,nr);
   Close(f);

 end.