どう書く?orgの例を実行してみた。
$ cat sjis2euc.hs import Data.ByteString.Lazy as B import Codec.Text.IConv -- "UTF-8" or "LATIN1" sjis2eucjp :: ByteString -> ByteString sjis2eucjp = convert "SHIFT-JIS" "EUC-JP" main :: IO () main = B.interact sjis2eucjp $ ghc --make sjis2euc.hs [1 of 1] Compiling Main ( sjis2euc.hs, sjis2euc.o ) Linking sjis2euc ... $ echo "こんにちは"|nkf -g UTF-8 $ echo "こんにちは"|nkf -s|nkf -g Shift_JIS $ echo "こんにちは"|nkf -s|./sjis2euc|nkf -g EUC-JP