From 2c8ce149a6d0e996960c1d078f51ed31294c0635 Mon Sep 17 00:00:00 2001
From: MadMaurice <madmaurice@zom.bi>
Date: Fri, 2 Apr 2021 01:07:23 +0200
Subject: [PATCH] Update testprogram

---
 test.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test.pl b/test.pl
index 129c648..2d21b5a 100644
--- a/test.pl
+++ b/test.pl
@@ -4,10 +4,10 @@ use Minilisp;
 use Data::Dumper;
 
 my $term = <<EOF;
-(let
-  ((avg-4 (lambda (a b c d) (/ (+ a b c d) 4))))
-  (write-line (avg-4 1 2 3 4))
-  (write-line (avg-4 2 3 4 5)))
+(progn
+ (defun avg-2 (a b) (/ (+ a b) 2))
+
+ (write-line (avg-2 1 19)))
 EOF
 
 my $parsed = Minilisp::compile($term);