(module creer-vecteur
   (main creer-vecteur))

(define (creer-vecteur Args)
   (let* ((taille (string->number (cadr Args)))
	  (V (make-vector taille 0))
	  (fichier (caddr Args))
	  (grandeur
	     (if (null? (cdddr Args))
		 10000
		 (string->number (cadddr Args))))
	  (flux (open-output-file fichier)))
      (do ((i 0 (+ i 1)))
	  ((= i taille)
	   (vector-for-each (lambda (n)
			       (display n flux)
			       (display " " flux))
	      V)
	   (close-output-port flux))
	  (vector-set! V i (random grandeur)))))