diff --git a/src/Main.hs b/src/Main.hs
index 0602f6e..41379fc 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -26,9 +26,9 @@ main' s = do
   let lifted = lambdaLift parsed
   putStrLn $ printTree lifted
 
-  interpred <- fromInterpreterErr $ interpret lifted
-  putStrLn "\n-- interpret"
-  print interpred
+  -- interpred <- fromInterpreterErr $ interpret lifted
+  -- putStrLn "\n-- interpret"
+  -- print interpred
 
   exitSuccess