(defun fillpath ()
  (iter (for pair in *pairs*)
    (let* ((sp (stringpair pair))
           (basec (car sp))
           (quotec (cdr sp)))
      (unless (or (member basec *banned* :test 'string=) (member quotec *banned* :test 'string=))
        (setf (gethash basec (gethash quotec *cryptopath*)) (gethash basec *cryptopath*))
        (setf (gethash quotec (gethash basec *cryptopath*)) (gethash quotec *cryptopath*))))))