(define (vector-resize first n)
  (define second (make-vector n))
  (recurs first second 0))


(define (recurs from to i)
  (define (copy-element)
    (vector-set! to i (vector-ref  from i))
        (recurs from to (+ i 1)))

  (if (= i (min (vector-length to) (vector-length from)))
      to
      (copy-element)))


(display (vector-resize (vector 1 2 3) 2))