m@main=getLine>>=putStrLn.(1?)>>m;x?z=do(y,'1')<-zip[x..]z;e<-[0^max 0y];"><"!!e:show(abs$e-y)++(e-y+x)?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