10 lines
161 B
Racket
10 lines
161 B
Racket
#lang whalesong
|
|
|
|
(let loop ([b (read-byte)])
|
|
(cond
|
|
[(eof-object? b)
|
|
(void)]
|
|
[else
|
|
(display (string (integer->char b)))
|
|
(loop (read-byte))]))
|