checkText :: [String] -> IO Bool
checkText strings =
    let results = map checkLine strings
        resultsOk = all null results
    in sequence_ ( zipWith putResult [1..] results) >> return resultsOk
checkText :: [String] -> IO Bool
checkText strings =
    let results = map checkLine strings
        resultsOk = all null results
    in sequence_ ( zipWith putResult [1..] results) >> return resultsOk
checkText strings =
    let results = map checkLine strings
        resultsOk = all null results
    in sequence_ ( zipWith putResult [1..] results) >> return resultsOk