(define count 10)
(lambda (objects action)
  (lambda args
    (set! count (+ count 1))
    `(counter ,count)))

