aaa = do putStr "x: " l <- getLine return (words l)