6 lines
201 B
Text
6 lines
201 B
Text
|
(define (translate source)
|
||
|
|
(let ((stream (try-parse token-parser (str-iter source) #t)))
|
||
|
|
(for-each print (car stream))
|
||
|
|
(if (null? (force (cdr stream)))
|
||
|
|
(print 'End_of_input))))
|