(defun judge (k) (loop while (zerop (mod k 2)) do (setq k (floor k 2))) (loop while (zerop (mod k 5)) do (setq k (floor k 5))) (/= k 1)) (defun main () (let ((a (read)) (b (read))) (let ((g (gcd a b))) (let ((b (/ b g))) (if (and (/= b 1) (judge b)) (princ "Yes") (princ "No"))))) (fresh-line)) (main)