simulate:
   : , DP  1 CELLS DP +!  ! ;

reference: p4_comma in ../src/core.c:0282, export CO ,