(defvar *cryptopath* (make-hash-table :test 'equal))
(defun initpath ()
    (iter (for crypto in *cryptos*)
      (setf (gethash crypto *cryptopath*) (make-hash-table :test 'equal))))

(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*))))))

(defvar *path3* nil)

(defun find-path3 ()
    (iter (for (k v) in-hashtable *cryptopath*)
      (iter (for (kk vv) in-hashtable v)
        (iter (for (kkk vvv) in-hashtable vv)
          (iter (for (kkkk vvvv) in-hashtable vvv)
            (when (string= k kkkk)
              (setf path3 (push `(,k ,kk ,kkk) *path3*))))))))