(use medea comparse)

;; what i expect to work:
(with-input-from-string "[1] [2]"
  (lambda ()
    (define (next) (receive (read-json)))
    (print (next))
    (print (next))))

;; what works:
(with-input-from-string "[1] [2] [3]"
  (lambda ()
    (let loop ((next (->parser-input (current-input-port))))
      (receive (data next) (read-json next)
        (cond (data (pp data) (loop next)))))))