main = print "Петя"

module Main where

import Data.Char
import Numeric
import System.Environment

proc :: String -> String
proc [] = []
proc (x:xs)
    | '\xC0'<=x && x<='\xFF'
        = ('\\':)
        $ ('x':)
        $ (showHex $ ord x)
        $ proc xs
    | otherwise = x : proc xs

main = do
    (inName:_:outName:_) <- getArgs
    s <- readFile inName
    writeFile outName $ proc s

module System.ConsoleRus
    ( winToDos, dosToWin
    , w2d, d2w
    , putc, putcLn
    , showInFrame, showInFrameDigs
    ) where

import Data.Array.Unboxed
import IO

-- соответствующие конвертации символов в строках
w2d, d2w :: String -> String
w2d = map winToDos
d2w = map dosToWin

-- конвертация символов ANSI->OEM и OEM->ANSI
winToDos, dosToWin :: Char -> Char
winToDos = tableConvert
    [ "\x5F\x5F\x27\x5F\x22\x3A\xC5\xD8\x5F\x25\x5F\x3C\x5F\x5F\x5F\x5F"
    , "\x5F\x27\x27\x22\x22\x07\x2D\x2D\x5F\x54\x5F\x3E\x5F\x5F\x5F\x5F"
    , "\xFF\xF6\xF7\x5F\xFD\x5F\xB3\x15\xF0\x63\xF2\x3C\xBF\x2D\x52\xF4"
    , "\xF8\x2B\x5F\x5F\x5F\xE7\x14\xFA\xF1\xFC\xF3\x3E\x5F\x5F\x5F\xF5"
    , "\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F"
    , "\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F"
    , "\xA0\xA1\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF"
    , "\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF"
    ]
dosToWin = tableConvert
    [ "\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF"
    , "\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF"
    , "\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF"
    , "\x2D\x2D\x2D\xA6\x2B\xA6\xA6\xAC\xAC\xA6\xA6\xAC\x2D\x2D\x2D\xAC"
    , "\x4C\x2B\x54\x2B\x2D\x2B\xA6\xA6\x4C\xE3\xA6\x54\xA6\x3D\x2B\xA6"
    , "\xA6\x54\x54\x4C\x4C\x2D\xE3\x2B\x2B\x2D\x2D\x2D\x2D\xA6\xA6\x2D"
    , "\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF"
    , "\xA8\xB8\xAA\xBA\xAF\xBF\xA1\xA2\xB0\x95\xB7\x76\xB9\xA4\xA6\xA0"
    ]

putc, putcLn :: String -> IO ()
putc a = putStr (w2d a) >> hFlush stdout
putcLn a = putStrLn (w2d a) >> hFlush stdout

tableConvert :: [String] -> Char -> Char
tableConvert xs = (!) (listArray ('\x00', '\xff') $
    ['\x00'..'\x7f'] ++ concat xs :: UArray Char Char)

-- обрамить псевдографикой список строк
showInFrame :: [String] -> String
showInFrame xs =
    '\n':'\xDA':replicate width '\xC4' ++
    '\xBF':'\n':concatMap (\x -> '\xB3':x ++ "\xB3\n") xs ++
    '\xC0':replicate width '\xC4' ++ "\xD9"
    where
    height = length xs
    width = maximum $ map length xs
    xsPad = map (\x -> take width $ x ++ repeat ' ') xs

-- обрамить псевдографикой список строк и поместить координаты по бокам
showInFrameDigs :: [String] -> String
showInFrameDigs xs = concatMap ('\n':) $
    (' ':' ':take width digs) : zipWith (:) vertDigs fs
    where
    (_:fs) = lines $ showInFrame xs
    width = length (head fs) - 2
    digs = ['1'..'9'] ++ '0':digs
    vertDigs = ' ' : take width digs ++ repeat ' '

main = 
    do
        System.IO.UTF8.putStrLn $ "петя"

C:\xxx\bin>theResult.exe
петя
я
петятяяпетятяяtheResult.exe: <stdout>: hPutChar: permission denied (Permission denied)

eter@localhost ~/Projects/HS $ ./sss
петя
eter@localhost ~/Projects/HS $

module Main where
import Codec.Binary.UTF8.String (utf8Encode)

main = putStrLn $ utf8Encode  "здравствуй мир!"

import Data.Encoding
import System.IO.Encoding

cp866 = (encodingFromString "cp866")

rusPrint     :: String -> IO ()
rusPrint     = let ?enc = cp866 in System.IO.Encoding.putStrLn