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