f 0=0\x0d f x=mod x 10+f(div x 10)\x0d main=getLine>>=print.f.(4^).read>>main
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page