Data.Text.IO.putStrLn $ Data.Text.Encoding.decodeUtf8 $ Data.ByteString.foldr (\t r -> Data.ByteString.Char8.pack [chr (fromIntegral t),'\204','\182'] <> r) Data.ByteString.empty $ Data.Text.Encoding.encodeUtf8 "1,2
1̶,̶2̶
Тут ещё ад с уже составными символами будет, так что ну его к чёрту