Update lambda handling; better default decode out

src/Eval.hs

@@ -18,7 +18,7 @@ evalSingle env term = case term of
     let result = evalAST env body
     in Map.insert "__result" result env
   SApp func arg ->
-    let result = apply (evalAST env func) (evalAST env arg)
+    let result = apply (evalAST env $ eliminateLambda func) (evalAST env $ eliminateLambda arg)
     in Map.insert "__result" result env
   SVar name ->
     case Map.lookup name env of