(defun test (input)
  (let ((lst '()))
    (loop for (val pos) = (multiple-value-list (read-from-string input nil))
                        then (multiple-value-list (read-from-string input nil nil :start pos))
          while val
          do (push val lst)
             (print val))
    lst))