m@main=g>>=putStrLn>>g>>m g=getLine