module Main where

import Lib
import Interpreter
import Control.Monad
import Control.Monad.State
import qualified Data.Map as Map


main :: IO ()
main = do
  putStrLn "Plz enter filename (file1.txt may work)"
  f <- getLine
  content <- readFile f
  run $ map (read :: String -> Statement) $ lines content
