+! + +LOOP
+! ( val addr -- )  
ansi .6.1.0130 <CORE>
add val to the value found in addr 
 simulate:
   : +! TUCK @ + SWAP ! ;

reference: p4_plus_store in ../src/core.c:0242, export CO +!