6 lines
150 B
Scheme
6 lines
150 B
Scheme
(call-with-current-continuation
|
|
(lambda (esc)
|
|
(do ((i 1 (+ 1 i))) (#f)
|
|
(display i)
|
|
(if (= i 10) (esc (newline)))
|
|
(display ", "))))
|