(defun main (&rest argv) (declare (ignore argv)) (format t "~d~%" (1+ (ash (1- (read)) -1)))) (main)