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