m@main=getLine>>=(\x->putStrLn$x++"\n"++x)>>m