(quote (when
         1
         2))

`(foo
   ,(when 1
      2))

(values one
        two
        three)

;; by "gahr":
(define (item addr title subtitle)
  '(li
     (p
       (a (@ (href addr))
          (span (@ (class "title"))
                title))
       (span (@ (class "subtitle"))
             subtitle))))

(module foo
  (case ((#\|) 1)))

#| block
comment
                #| nested |#
                |#

(define (quoted qc col align)
  (let ((c (read-char)))
    (cond ((eof-object? c) col)
          ((char=? #\\ c)
           (write-char #\\)
           (let ((c2 (read-char)))
             (cond ((eof-object? c2) (add1 col))
                   (else
                     (write-char c2)
                     (quoted qc (+ col 2) align)))))
          ;; unfinished...

          (define bar
            (a list))

          (let ((tmp (gensym)))
            (walk
              `(##abc
                ((,tmp ,(car x)))
                (,tmp ,@(cdr x)))
              e dest ldest h outer-ln #f)))))