; 1 xor x
; (1 + x) % 2
; 1 - x
; zerop x など
(defun main ()
  (princ
    (logxor 1 (read)))
    ; (mod (1+ x) 2)
    ; (- 1 x)
    ; (if (zerop x) 1 0)
  (terpri))
(main)