12 lines
267 B
Haskell
12 lines
267 B
Haskell
module Main (main) where
|
|
|
|
import Lib
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "Введите имя файла:"
|
|
fileName <- getLine
|
|
content <- readFile fileName
|
|
let expressions = lines content
|
|
putStrLn $ concatMap processExpression expressions
|
|
|