From 4e3a048296065f4043915b6ade4ee287ae76bdff Mon Sep 17 00:00:00 2001
From: Folkert Kevelam <contact@pyllr.nl>
Date: Tue, 3 Jun 2025 19:29:06 +0200
Subject: [PATCH] Initial commit

---
 SICP/exercise_1_43.janet | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 SICP/exercise_1_43.janet

diff --git a/SICP/exercise_1_43.janet b/SICP/exercise_1_43.janet
new file mode 100644
index 0000000..f763908
--- /dev/null
+++ b/SICP/exercise_1_43.janet
@@ -0,0 +1,12 @@
+(defn compose [f g]
+  (fn [x] (f (g x))))
+(defn repeated [f n]
+  (defn iter [inner_f k]
+    (cond
+      (= k 1) inner_f
+      (iter (compose f inner_f) (- k 1))))
+  (iter f n))
+
+(defn square [x] (* x x))
+
+(print ((repeated square 2) 5))