CPSの利用(3)

一回毎にトップレベルに戻る
(define (next)
  (finder odd? '(1 2 3 4 5)
    (lambda (m c)
       (if c
         (begin (print "Match " m) (set! next c) #t)
         (begin (print "Result " m) (set! next values) #f)))))