diff --git a/macro-test.scm b/debug/macro-test.scm
similarity index 100%
rename from macro-test.scm
rename to debug/macro-test.scm
diff --git a/kons.scm b/kons.scm
new file mode 100644
index 00000000..63cb8c24
--- /dev/null
+++ b/kons.scm
@@ -0,0 +1,21 @@
+;; A temporary test file
+(import (scheme base)
+        (scheme write)
+        (srfi 9))
+
+(define-record-type <pare>
+  (kons x y)
+  pare?
+  (x kar set-kar!)
+  (y kdr))
+
+;(write
+;  (list
+;    (pare? (kons 1 2)) ; =. #t
+;    (pare? (cons 1 2)) ; =. #f
+;    (kar (kons 1 2))   ; =. 1
+;    (kdr (kons 1 2))   ; =. 2
+;    (let ((k (kons 1 2)))
+;      (set-kar! k 3)
+;      (kar k)))) ;=. 3
+