(defvar A)
(defvar B)
(defvar temp)
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")" )))
(setq A (nth 0 temp))
(setq B (nth 1 temp))

(if (= (mod B A) 0) (format 't "~d~%" (/ B A)) (format 't "NO~%"))