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