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