From fb6baaa630d583447a990b14d5cb7432bd2cda1d Mon Sep 17 00:00:00 2001
From: Marco <mgross@sw-gross.de>
Date: Tue, 20 Aug 2024 16:44:13 +0200
Subject: [PATCH] first simple program

---
 first.scm | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 first.scm

diff --git a/first.scm b/first.scm
new file mode 100644
index 0000000..449d482
--- /dev/null
+++ b/first.scm
@@ -0,0 +1,4 @@
+(define (p) (p))
+(define (test x y) (if (= x 0) 0 y))
+
+(print (test 1 (p)))