> import Prelude hiding (lines)

> lines	:: String -> [String]
> lines s = lines' s ""
>   where
>   lines' []       ""  = []
>   lines' []       acc = [reverse acc]
>   lines' ('\n':s) acc = reverse acc : lines' s ""
>   lines' (c:s)    acc = lines' s (c:acc)

> main = interact (unlines . lines)