m@main=getLine>>=putStrLn.(9?)>>m;x?z=do(y,'1')<-zip[9..]z;e<-[div y x];"<>"!!e:show(abs$y+e-x)++(y+e)?map pred z
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page