(if (equal (read-line) "0") (format 't "1~%") (format 't "0~%"))