(let ((X (read)))
	(write (if (zero? X) 1 0))
    (newline)
)