> spanLines :: String -> [String]
> spanLines "" = []
> spanLines s  = let (l, s') = span (/= '\n') s
>                in  l : case s' of
>                         []      -> []
>                         (_:s'') -> spanLines s''

> main = interact (unlines . spanLines)