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