T4006.hs 232 Bytes
Newer Older
1 2 3 4 5 6 7 8
import System.Process

testUnicode :: String -> IO String
testUnicode str = readProcess "printf" ["%s", str] ""

main = do
    testUnicode "It works here" >>= putStrLn
    testUnicode "А здесь сломалось" >>= putStrLn