Fix critical list evaluation bug and REPL updates

src/Main.hs

@@ -6,7 +6,7 @@ import Parser                 (parseTricu)
 import REPL
 import Research
 
-import Control.Monad 					(foldM)
+import Control.Monad          (foldM)
 import Control.Monad.IO.Class (liftIO)
 import Text.Megaparsec        (runParser)
 import System.Console.CmdArgs
@@ -61,7 +61,7 @@ main = do
       putStrLn "Welcome to the tricu REPL"
       putStrLn "You can exit with `CTRL+D` or the `:_exit` command.`"
       library <- liftIO $ evaluateFile "./lib/base.tri"
-      repl library
+      repl $ Map.delete "__result" library
     Evaluate { file = filePaths, form = form } -> do
       result <- case filePaths of
         [] -> do