(defun test (a)
  (if (zerop a)
      1
      0))
(format t "~a~%" (test (read)))