(quote (when
         1
         2))

`(foo
   ,(when 1
      2))

(values one
        two
        three)

(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)))))