(lambda (continue)
  (let ((counter (with-input-from-file "root-counter" read)))
    (with-output-to-file "root-counter" (lambda () (write (add1 counter)))))
  (continue))