(define (n-min V n)
   (let ((VL (vector-length V)))
      (if (<= VL n)
	  (trier-vecteur V)
	  (let ((T (arbre:creer n)))
	     (do ((i 0 (+ i 1)))
		 ((>= i n) T)
		 (arbre:ajoute! T (vector-ref V i)))
	     (do ((i n (+ i 1)))
		 ((>= i VL) T)
		 (arbre:inserer-sommet! T (vector-ref V i)))
	     (let ((W (make-vector n)))
		(do ((i 0 (+ i 1)))
		    ((>= i n) W)
		    (vector-set! W 
				 (- (- n 1) i) 
				 (arbre:extraire T))))))))