Кириллица и show

coursework/part2/app/Main.hs

@@ -1,6 +1,11 @@
 module Main (main) where
 
 import Lib
+import UnescapingPrint (uprint)
 
 main :: IO ()
-main = putStrLn "Temp"
+main =
+    putStrLn "Введите имя файла:" >>
+    getLine >>= \fileName ->
+    readFile fileName >>= \content ->
+    uprint $ splitText content