(define (minr A i)
   (let ((imin i)) 
      (do ((j (+ i 1) (+ j 1))) 
          ((>= j (vector-length A))  imin) 
          (if (> (vector-ref A imin) 
                 (vector-ref A j)) 
              (set! imin j)))))