module Main (main) where

import Lib

main :: IO ()
main = do
    putStrLn "Введите имя файла:"
    fileName <- getLine
    content <- readFile fileName
    let expressions = lines content
    putStrLn $ concatMap processExpression expressions