CPSの利用(2)

直接呼び出し
  gosh> (finder odd? '(1 2 3 4 5)
                (lambda (m c)
                  (if c
                    (begin (print "Match " m) (c))
                    (print "Result " m))))
  Match 1
  Match 3
  Match 5
  Result (1 3 5)