(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((a (read))
         (b (read)))
    (format t "~d~%"
      (cond ((zerop b) 1)
            ((= a -1) 2)
            (t -1)))))

(main)