(define (foldr/array proc init vec)
  (if (not (vector? vec))
      (error "???")
      (let lp ((i 0) (acc init))
        (if (= i (vector-length vec))
            acc
            (lp (+ i 1) (proc acc (vector-ref vec i)))))))