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