(define (vector-reduce mass func num)
  (define (loop i acc)
    (if (= i (vector-length mass))
        acc
         (loop (+ i 1) (func acc (vector-ref mass i)))
         ))
    (loop 0 num))

(display (vector-reduce (vector 1 2 3 4 5) + 0))