:try ("-n) s:get s:to-number s:get s:to-number + n:put ;