program qq;
var i,j,s,t,n,m:integer;
begin
readln(n,m);
i:=n;
j:=m;
s:=0;
repeat
inc(s,j div i);
t:=i;i:=j mod i; j:=t;
until i=0;
writeln('Количество квадратов:',s);
end.