diff --git a/implementations/scheme-chicken/s.scm b/implementations/scheme-chicken/s.scm
new file mode 100644
index 0000000..d15a9a6
--- /dev/null
+++ b/implementations/scheme-chicken/s.scm
@@ -0,0 +1,14 @@
+(define (string-replace str from to)
+  (string-intersperse (string-split str from) to)
+  )
+
+(define (tokenize str)
+  (string-split
+    (string-replace 
+      (string-replace str "]" " ] ")
+      "[" " [ "
+      )
+    )
+  )
+
+