(define (main args) (let1 x (read) (print (- 1 x))) 0)