; Simulate list of input items
(define *l* '())

(define (testreader lst)
  (set! *l* lst)
  (read-sexpr))

; Simulate reading next token from input
(define (readtoken)
  (let ((next #f))
    (if (pair? *l*)
        (begin (set! next (car *l*))
               (set! *l* (cdr *l*))
               next)
        #\) ) ) )

Contents    Page-10    Prev    Next    Index