($x,$y)=eval<>;$@=a;$@++while$y>=$x?$y-=$x*print+($a,$@x$x,$/)x$x:($x-=$y,$a.=$@x$y)