diff --git a/SICP/exercise_1_41.janet b/SICP/exercise_1_41.janet
new file mode 100644
index 0000000..82bd306
--- /dev/null
+++ b/SICP/exercise_1_41.janet
@@ -0,0 +1,4 @@
+(defn double [f]
+  (fn [x] (f (f x))))
+
+(print (((double (double double)) inc) 5))
\ No newline at end of file