7 lines
113 B
Racket
7 lines
113 B
Racket
#lang racket
|
|
|
|
(let loop ()
|
|
(match (read-char)
|
|
[(? eof-object?) (void)]
|
|
[c (display c)
|
|
(loop)]))
|