> import Prelude hiding (lines)

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

> main = interact (unlines . lines)