m@main=getLine>>=putStrLn.until(\r->any(`notElem`init r)"stop")init>>m