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