module Main (main) where

import Lib
import UnescapingPrint (uprint)

main :: IO ()
main =
    putStrLn "Введите имя файла:" >>
    getLine >>= \fileName ->
    readFile fileName >>= \content ->
    let sentences = splitText content in
    uprint (take 10 sentences) >>
    let dict = buildDictionary sentences in
    saveDictionary "dict.txt" dict