g x=mod x 100:g(div x 100) m@main=do s<-getLine;putStrLn.unwords$map(show.((g$read s)!!)) [2,0,3,1];m