Первая версия Main, но пока с do-нотацией

coursework/part1/app/Main.hs

@@ -3,4 +3,10 @@ module Main (main) where
 import Lib
 
 main :: IO ()
-main = putStrLn "temp"
+main = do
+    putStrLn "Введите имя файла:"
+    fileName <- getLine
+    content <- readFile fileName
+    let expressions = lines content
+    putStrLn $ concatMap processExpression expressions
+