8 lines
218 B
Scheme
8 lines
218 B
Scheme
(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))))
|