readToBlankLine :: [String] -> ([String], [String])
readToBlankLine strLines =
    case break null strLines of
        ([], rest) -> ([], rest)
        (lines, rest) -> (lines, drop 1 rest) -- drop empty line


-- | Returns all possible splits of list, left nor right part of split is epty.
readToBlankLine :: [String] -> ([String], [String])
readToBlankLine strLines =
    case break null strLines of
        ([], rest) -> ([], rest)
        (lines, rest) -> (lines, drop 1 rest) -- drop empty line


-- | Returns all possible splits of list, left nor right part of split is epty.
readToBlankLine strLines =
    case break null strLines of
        ([], rest) -> ([], rest)
        (lines, rest) -> (lines, drop 1 rest) -- drop empty line


-- | Returns all possible splits of list, left nor right part of split is epty.