(defvar N)
(defvar P)
(defvar temp)
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")" )))
(setq N  (write-to-string (nth 0 temp)))
(setq P (write-to-string (nth 1 temp)))
;(print P)
;(print N)
;(print (type-of P))
;(print (type-of N))
(format 't "~a~%" (if (or (string= P "0") (string= N "1")) "=" "!="))