( C+!                          add a number to byte at address )

: c+!                             ( b addr --- )
  dup c@                          ( fetch byte at addr)
  rot +                           ( and add b to it)
  swap c!                         ( store sum at addr)
;