module Main (main) where

import Lib

main :: IO ()
main =
    putStrLn "Введите имя файла:" >>
    getLine >>= \fileName ->
    readFile fileName >>= \content ->
    let sentences = splitText content in
    let dict = buildDictionary sentences in
    saveDictionary "dict.txt" dict >>
    putStrLn "Введите слово или пару слов:" >>
    getLine >>= \input ->
    processInput dict input