如何在Haskell中获得unicode输出

我有一个输出unicode的主函数，如下所示：

main = do
    hSetEncoding stdout utf8
    input <- getContents
    mapM_ putStr $ myfunc input

只需使用序列（>>）：

main=do
HSE编码标准输出utf8
输入
main=hSetEncoding标准输出utf8>>获取内容>>=\input->mapM\uPutstr$行输入
~~>
main=hSetEncoding标准输出utf8>>获取内容>>=mapM_uuputstr。线

只需使用序列（>>）：

main=do
HSE编码标准输出utf8
输入
main=hSetEncoding标准输出utf8>>获取内容>>=\input->mapM\uPutstr$行输入
~~>
main=hSetEncoding标准输出utf8>>获取内容>>=mapM_uuputstr。线

只需使用序列（>>）：

main=do
HSE编码标准输出utf8
输入
main=hSetEncoding标准输出utf8>>获取内容>>=\input->mapM\uPutstr$行输入
~~>
main=hSetEncoding标准输出utf8>>获取内容>>=mapM_uuputstr。线

只需使用序列（>>）：

main=do
HSE编码标准输出utf8
输入
main=hSetEncoding标准输出utf8>>获取内容>>=\input->mapM\uPutstr$行输入
~~>
main=hSetEncoding标准输出utf8>>获取内容>>=mapM_uuputstr。线

main = getContents >>= mapM_ putStr . myfunc

main = do
    hSetEncoding stdout utf8
    input <- getContents
    mapM_ putStr $ myfunc input

~~>

main = hSetEncoding stdout utf8 >> getContents >>= \input -> mapM_ putStr $ lines input

~~>

main = hSetEncoding stdout utf8 >> getContents >>= mapM_ putStr . lines