ビット演算の練習もかねて、ghciでputStrLnで日本語文字が出せないのもつらいので書いてみた。ghcのCharはunicode（16bit）だけど、putChar等がバイト列でのみしか扱えないので。 import Data.Char import Data.Bits utf8 :: String -> String utf8 s = conc…