diff --git a/test-clo.scm b/test-clo.scm
new file mode 100644
index 00000000..e58128f2
--- /dev/null
+++ b/test-clo.scm
@@ -0,0 +1,57 @@
+;; A temporary test file
+(import
+  (scheme base)
+  (scheme write))
+
+;(define (test)
+;  (define (fnc x y z) (write (list x y z)))
+;    (fnc 1 2 3)
+;    (fnc 1 2 3))
+;"---------------- after wrap-mutables:"
+; */
+;/* 
+;((define test
+;   (lambda-1-cont
+;     (k$12)
+;     ((lambda-2
+;        (fnc$5)
+;        ((lambda-5
+;           (fnc$5)
+;           (Cyc-seq
+;             (set-cell!
+;               fnc$5
+;               (lambda-3-cont
+;                 (k$16 x$1$7 y$2$8 z$3$9)
+;                 (write k$16 (Cyc-fast-list-3 x$1$7 y$2$8 z$3$9))))
+;             ((cell-get fnc$5)
+;              (lambda-4 (r$14) ((cell-get fnc$5) k$12 1 2 3))
+;              1
+;              2
+;              3)))
+;         (cell fnc$5)))
+;      #f)))
+; (test %halt))
+
+(define (test)
+  (let ((fnc (lambda (x y z) (write (list x y z)))))
+    (fnc 1 2 3)
+    (fnc 1 2 3))
+  )
+;"---------------- after wrap-mutables:"
+; */
+;/* 
+;((define test
+;   (lambda-1-cont
+;     (k$11)
+;     ((lambda-2
+;        (fnc$1$5)
+;        (fnc$1$5
+;          (lambda-3 (r$13) (fnc$1$5 k$11 1 2 3))
+;          1
+;          2
+;          3))
+;      (lambda-4-cont
+;        (k$14 x$2$6 y$3$7 z$4$8)
+;        (write k$14 (Cyc-fast-list-3 x$2$6 y$3$7 z$4$8))))))
+; (test %halt))
+(test)