m@main=getLine>>=putStrLn.f['1'..]9>>m f(c:d)p s=do(x,y)<-zip[9..]s;z<-[div x p|c==y];"<>"!!z:abs(x-p+z)`shows`f d(x+z)s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page