main=readLn>>=putStr.(show=<<).f f n=map snd$reverse$takeWhile((0,0)/=)$iterate g$g(n,0) g(n,_)=divMod n 2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page