(define fred #(a b c))
(define ginger (make-vector 10 'x))

(define iota-vector
    (lambda (n)
      (let ((vec (make-vector n 'trouble)))
        (letrec ((kernel (lambda (pos)
                           (if (< pos 0)
                               vec
                               (begin
                                 (vector-set! vec pos (+ pos 1))
                                 (kernel (- pos 1)))))))
          (kernel (- n 1))
        )
        vec
       )
     )
)