Генерация фраз

coursework/part2/app/Main.hs

@@ -1,7 +1,6 @@
 module Main (main) where
 
 import Lib
-import UnescapingPrint (uprint)
 
 main :: IO ()
 main =
@@ -9,6 +8,8 @@ main =
     getLine >>= \fileName ->
     readFile fileName >>= \content ->
     let sentences = splitText content in
-    uprint (take 10 sentences) >>
     let dict = buildDictionary sentences in
-    saveDictionary "dict.txt" dict
+    saveDictionary "dict.txt" dict >>
+    putStrLn "Введите слово или пару слов:" >>
+    getLine >>= \input ->
+    processInput dict input