diff --git a/test-cps.scm b/test-cps.scm
new file mode 100644
index 00000000..d33bf8b5
--- /dev/null
+++ b/test-cps.scm
@@ -0,0 +1,28 @@
+(import (scheme base)
+        (scheme write)
+        (scheme cyclone transforms)
+        (scheme cyclone pretty-print)
+        )
+
+;; Original code:
+;;(let ((x 1) (y 2) (z 3))
+;;  (write
+;;    (cons
+;;      x
+;;      (cons y z))))
+
+(define code
+'(((lambda ()
+    0
+    ((lambda (x$3 y$2 z$1)
+       (write (cons x$3 (cons y$2 z$1))))
+     1
+     2
+     3))))
+)
+
+;; thought - can either CPS or CPS-opti convert the CPS code
+;; to prevent wrapping non-cont prims in functions, but just
+;; add them directly to calling lambda's?
+(pretty-print
+  (cps-convert code))