1 2 3 4 5 6 7 8 9 10
module Output where import Data.Char sanitizeForDisplay :: String -> String sanitizeForDisplay = map go where go c | isPrint c = c | otherwise = '?'