diff --git a/.gitignore b/.gitignore
index d4bfdbc..4e34154 100644
--- a/.gitignore
+++ b/.gitignore
@@ -33,3 +33,7 @@ cabal.project.local
 cabal.project.local~
 .HTF/
 .ghc.environment.*
+
+# generated
+input.txt
+*.ps
diff --git a/initial-encoding/src/Parser.hs b/initial-encoding/src/Parser.hs
index 2421a2a..d6a319c 100644
--- a/initial-encoding/src/Parser.hs
+++ b/initial-encoding/src/Parser.hs
@@ -176,8 +176,7 @@ mulPassExpr = expr >>= either (fail . unpack) pure
       lhs' <- lhs
       rhs' <- rhs
       (lhs', rhs') <- cast lhs' rhs'
-      k <- eval $ bin (f lhs') (f rhs')
-      pure $ k `deepseq` k
+      eval $ bin (f lhs') (f rhs')
 
   term = parens expr <|>
          Right . EInt <$> integer <|>