()()()()()()()()()()()()()()()()()()()
()(defun O (O)()()()()()()()()()()()()
()(if (< 0    O) (progn ()()()()()()()
()(+ O (O (- O 1))))     0))()()()()()
()(format t "ENTER INTEGER~%")()()()()
()(defvar O (read-line *terminal-io*))
()(defvar OO  (parse-integer O))()()()
()(print      (O         OO ))()()()()
()()()()()()()()()()()()()()()()()()()