diff --git a/test.pl b/test.pl
index 2d21b5a..15b330a 100644
--- a/test.pl
+++ b/test.pl
@@ -4,10 +4,9 @@ use Minilisp;
 use Data::Dumper;
 
 my $term = <<EOF;
-(progn
- (defun avg-2 (a b) (/ (+ a b) 2))
+(defun fact (n) (if (> n 1) (* n (fact (- n 1))) 1))
 
- (write-line (avg-2 1 19)))
+(write-line (fact 5))
 EOF
 
 my $parsed = Minilisp::compile($term);