diff --git a/SICP/exercise_1_42.janet b/SICP/exercise_1_42.janet
new file mode 100644
index 0000000..176d1a3
--- /dev/null
+++ b/SICP/exercise_1_42.janet
@@ -0,0 +1,6 @@
+(defn compose [f g]
+  (fn [x] (f (g x))))
+
+(defn square [x] (* x x))
+
+(print ((compose square inc) 6))
\ No newline at end of file