putStr'
getLine
solved sequence monads