diff --git a/demo/kitchen-sink/docs/scheme.scheme b/demo/kitchen-sink/docs/scheme.scheme
new file mode 100644
index 00000000..c58ece6a
--- /dev/null
+++ b/demo/kitchen-sink/docs/scheme.scheme
@@ -0,0 +1,24 @@
+(define (prompt-for-cd)
+   "Prompts
+    for CD"
+   (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6))
+   (prompt-read "Artist")
+   (or (parse-integer (prompt-read "Rating") #:junk-allowed t) 0)
+  (if x (format #t "yes") (format #f "no") ;and here comment
+  ) 
+  ;; second line comment
+  '(+ 1 2)
+  (define-sytax get-line
+    (syntax-rules ()
+      ((_ x) x)))                ; nonsense, just a highlight test
+  (position-if-not char-set:whitespace line #:start beg))
+  (quote (privet 1 2 3))
+  '(hello world)
+  (* 5 7)
+  (1 2 34 5)
+  (#:use "aaaa")
+  (let ((x 10) (y 20))
+    (display (+ x y))
+  ) 
+
+  "asdad\0eqweqe"