oke.

demo/show-jsmaker-output.rkt

@@ -1,11 +1,26 @@
 #lang racket/base
 
-(require (prefix-in use: "js-usecases.rkt")
-         (prefix-in dom: "dom-exercises.rkt"))
+(require "../main.rkt")
+
+(define examples
+  `((simple-function . ,(js (define (add1 x) (return (+ x 1)))))
+    (ordinary-let . ,(js (define (ordinaryLet x)
+                         (let ([x 1] [y x])
+                           (return y)))))
+    (let-star . ,(js (define (sequentialLet x)
+                     (let* ([x 1] [y x])
+                       (return y)))))
+    (named-let . ,(js (define (sumTo n)
+                      (let loop ([i 0] [acc 0])
+                        (if (> i n)
+                            (return acc)
+                            (loop (+ i 1) (+ acc i)))))))))
+
+(define (show-examples)
+  (for ([entry (in-list examples)])
+    (displayln (format "// ~a" (car entry)))
+    (displayln (cdr entry))
+    (newline)))
 
 (module+ main
-  (displayln ";; js-usecases")
-  (display use:generated-js)
-  (newline)
-  (displayln ";; dom-exercises")
-  (display dom:generated-js))
+  (show-examples))