(set! ##sys#expand-0
  (let ((expand-0 ##sys#expand-0)
        (print-queue (list 'quote 'quote
                           'location 'location
                           'cond-expand 'cond-expand)))
    (lambda (x e c)
      (when (null? print-queue) (exit 0))
      (receive (x* m) (expand-0 x e c)
        (when (and (pair? x) (eq? (car x) (car print-queue)))
          (write (list (get-line-number x) x))
          (newline)
          (set! print-queue (cdr print-queue)))
        (values x* m)))))