lines :: Doc -> [Line]

lines doc
  = if doc'==[]
       then []
       else line : lines (dropWhile (/= '\n') doc')
    where
    line = takeWhile (/= '\n') doc'
    doc' = (dropWhile (== '\n') doc)