(defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read)) (c 0)) (dotimes (_ a) (setq c (gcd c (read)))) (dotimes (_ b) (unless (zerop (mod (read) c)) (format t "No~%") (return-from main))) (format t "Yes~%"))) (main)