(define build-vector2
  (lambda (sizelist)
    (if (= (length sizelist) 1)
        (make-vector (car sizelist))
        (apply vector
               (let loop
                 ((n (car sizelist)))
                 (if (= n 0) ()
                     (cons
                      (build-vector2 (cdr sizelist))
                      (loop (- n 1)))))))))