($x,$y)=eval<>;$@=a;$@++while$y>=$x?$y-=$x*print+($a,$@x$x,$/)x$x:($x-=$y,$a.=$@x$y)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page