-- How many thingies (that's a technical term) are non-ascii?

-- for Step 2, we can do this generically or we can do it specifically.

cleanText :: Text -> Text
cleanText = T.concat . unicodePoints
cleanText :: Text -> Text
cleanText = T.concat . unicodePoints
cleanText = T.concat . unicodePoints