(defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read))) (format t "~d~%" (gcd (+ a b) (* a b))))) (main)