(define (trace ls)
  (call/cc
   (lambda (skip)
     (let R ((ls ls))
       (cond ((null? ls)
	      '())
	     (else
	      (call/cc
	       (lambda (k)
		 (set! trace (lambda () (k #f)))
		 (skip (car ls))))
	      (R (cdr ls))))))))