@++ @> @+
@++
* @++ ( addr -- addr' x )

Fetch the value _x_ from _addr_, and increment the address
by one cell. 
 : @++  ( addr -- addr' x )  DUP CELL+ SWAP  @ ;

FORTH/BASE forth_usual ordinary primitive