showScreen :: Screen -> String
showScreen screen = unlines [showRow r | r <- [minRow..maxRow]]
where ((minRow, minCol), (maxRow, maxCol)) = bounds screen
showScreen :: Screen -> String
showScreen screen = unlines [showRow r | r <- [minRow..maxRow]]
where ((minRow, minCol), (maxRow, maxCol)) = bounds screen