(import (pi))
(spigot
 (lambda (n)
   (write n)
   ;; feels nicer to flush after every digit (it gets real slow)
   ;; chez let's us omit the output port but not r6rs sad
   (flush-output-port (current-output-port))))