f x=take(length x)"123456789" m@main=getLine>>=putStrLn.f>>m