diff --git a/coursework/part1/app/Main.hs b/coursework/part1/app/Main.hs
index 08dbdca..05acfbd 100644
--- a/coursework/part1/app/Main.hs
+++ b/coursework/part1/app/Main.hs
@@ -3,10 +3,10 @@ module Main (main) where
 import Lib
 
 main :: IO ()
-main = do
-    putStrLn "Введите имя файла:"
-    fileName <- getLine
-    content <- readFile fileName
-    let expressions = lines content
+main =
+    putStrLn "Введите имя файла:" >>
+    getLine >>= \fileName ->
+    readFile fileName >>= \content ->
+    let expressions = lines content in
     putStrLn $ concatMap processExpression expressions
         
\ No newline at end of file