;; Minimal test: define-inside-let pattern (like hs-parse)
(define
  test-closure-parse
  (fn
    (tokens)
    (let
      ((p 0) (tok-len (len tokens)))
      (define get-val (fn () (get (nth tokens p) "value")))
      (define advance! (fn () (set! p (+ p 1))))
      (let
        ((first-val (get-val)))
        (advance!)
        (list "first:" first-val "second:" (get-val) "p:" p)))))