(let* ((a (read)))
  (display (- a 1 ))
  (newline)
  )