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