parseSingle :: String -> (String, String)
parseSingle inp =
    let (l:r) = lines inp
    in  (l, concat r)
parseSingle :: String -> (String, String)
parseSingle inp =
    let (l:r) = lines inp
    in  (l, concat r)
parseSingle inp =
    let (l:r) = lines inp
    in  (l, concat r)