import qualified Data.ByteString.UTF8 as B

main = do
  putStrLn "こんにちは"
  putStrLn `viaByteStringUtf8` "こんにちは"

viaByteStringUtf8 f = f . B.toString . B.fromString