diff --git a/kons.scm b/kons.scm
index 1fd5527c..94b472d1 100644
--- a/kons.scm
+++ b/kons.scm
@@ -17,11 +17,11 @@
   (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
+    (kar (kons 1 2))   ; =. 1
+    (kdr (kons 1 2))   ; =. 2
+    (let ((k (kons 1 2)))
+      (set-kar! k 3)
+      (kar k)) ;=. 3
 ))
 
 ;(define <pare> (register-simple-type <pare> #f (quote (x y))))