4 lines
77 B
Scheme
4 lines
77 B
Scheme
|
(do ((c (read-char) (read-char)))
|
||
|
|
((eof-object? c) 'done)
|
||
|
|
(display c))
|