(define (test)
  (define loop (lambda ()
		 (gc) (loop)))
  (begin
    (debug "~a created."
	   (set-finalizer! 'zooi
			   (lambda (x)
			     (debug "~a deleted" x))))
    (loop)))