m@main=getLine>>=putStrLn.(9?)>>m;x?z=do(y,'1')<-zip[9..]z;e<-[div y x];"<>"!!e:show(abs$y+e-x)++(y+e)?map pred z