Number in number by Hjulle

g x=mod x 100:g(div x 100)\x0d
m@main=do s<-getLine;putStrLn.unwords$map(show.((g$read s)!!)) [2,0,3,1];m

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page