,
* , ( val -- )

store the value in the dictionary
 simulate:
   : , DP  1 CELLS DP +!  ! ;

core ordinary primitive