import Data.ByteString.Lazy as B
import Codec.Text.IConv

sjis2eucjp :: ByteString -> ByteString
sjis2eucjp = convert "SHIFT-JIS" "EUC-JP"  -- エンコード変換関数

main :: IO ()
main = B.interact sjis2eucjp -- 標準入力からのバイト列をエンコード変換して
                             -- 標準出力へ書き出す