import Data.Text
import qualified Data.Text.IO as TI
import Cinnamon.Ucs (ucs4ToSjis)
txt = pack "日本語"
kana = pack "にほんご"
main = do
putStrLn $ ucs4ToSjis "日本語"
putStrLn $ ucs4ToSjis $ unpack $ pack "日本語"
putStrLn $ ucs4ToSjis $ unpack $ singleton 'あ'
putStrLn $ ucs4ToSjis $ unpack $ cons 'あ' empty
putStrLn $ ucs4ToSjis $ unpack $ cons 'あ' txt
putStrLn $ ucs4ToSjis $ unpack $ snoc txt 'あ'
case uncons txt of
Nothing -> putStrLn "Nothing"
Just (ch,t) -> do putStrLn $ ucs4ToSjis [ch]
putStrLn $ ucs4ToSjis $ unpack $ t
putStrLn $ ucs4ToSjis $ unpack $ append txt kana