-- for Step 1, look at, e.g. Y2020.M10.D23.Solution.stripNonAscii

isNonAscii :: Text -> Bool
isNonAscii = any ((> 127) . ord) . T.unpack
isNonAscii :: Text -> Bool
isNonAscii = any ((> 127) . ord) . T.unpack
isNonAscii = any ((> 127) . ord) . T.unpack