(define rember-upto-last
  (lambda (a lat) ; Look Ma, no cons   
    (letcc skip
      (letrec 
	((R
	   (lambda (l)
	     (cond
	       ((null? l) (void))
	       (else (let ()
		       (R (cdr l))
		       (cond
			 ((eq? a (car l))
			  (skip (cdr l)))
			 (else (void)))))))))
	(R lat)
	lat))))