(defun complete1 (vec)
  (loop for n from 0 to (- (length vec) 1)
     if (equalp (listp (svref vec n)) nil)
     collect (cons (svref vec n) (setf (svref vec n) (our-sample (svref vec n) t))) into new-vec
     else collect (svref vec n) into perm
     finally (return (values (make-array (length (append new-vec perm)) :initial-contents (append new-vec perm))))))

(defun complete (vec)
  (loop for n from 0 to (- (length vec) 1)
       collect  (svref vec n) into new-list
       finally(return(values (make-array (length (find-val new-list)) :initial-contents (find-val new-list))))))

(defun completeAllBut (startingPoint)
  (let ((lst (list)))
    (maphash #'(lambda (k v) (push k lst)) *dists*)
    (setf lst (mapcar #'(lambda (x)
			  (if (member x startingPoint :key #'first)
			      (find x startingPoint :key #'first)
			      x))
		      lst))
    ;(mapcar #'(lambda (x) (if (listp x) (cons (first x) (second x)) x)) lst)
    (let ((last (mapcar #'(lambda (x) 
			    (list (car x) (nDecimal (cdr x) 4))) 
			(coerce (complete (coerce (mapcar #'(lambda (x) 
							      (if (listp x) 
								  (cons (first x) (second x)) 
								  x)) lst) 'vector)) 'list))))
      (remove-if #'(lambda (x) (or (equal (first x) 'TaskValue)
				   (equal (first x) 'TaskCost)
				   (equal (first x) 'TaskValueChange)
				   (equal (first x) 'team-alpha)
				   (equal (first x) 'Dynamisim)
				   (equal (first x) 'NumChilderen)))
				   ;(equal (first x) 'CriticalityModifier)
		 last))))
		 
				   
;    (complete (coerce lst 'vector))))

(defun find-val (lst)                                                                                  
           (mapcar #'(lambda (x) (if (equalp (listp x) nil) (cons x (our-sample x t)) x))                   
                   lst))