From 7e7defbb9ab37d912cc609dca3deee3916f364e9 Mon Sep 17 00:00:00 2001
From: MadMaurice <madmaurice@zom.bi>
Date: Fri, 2 Apr 2021 01:02:45 +0200
Subject: [PATCH] Update test program

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

diff --git a/test.pl b/test.pl
index 1e21fe7..129c648 100644
--- a/test.pl
+++ b/test.pl
@@ -4,11 +4,10 @@ use Minilisp;
 use Data::Dumper;
 
 my $term = <<EOF;
-(progn
-  (print "Hello")
-  (print "World")
-  (print a)
-  1)
+(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)))
 EOF
 
 my $parsed = Minilisp::compile($term);