simulate:
   : SKIP  >R BEGIN DUP OVER C@ R@ = OR WHILE 
                    1- SWAP 1- SWAP REPEAT R> DROP ;

reference: p4_skip in ../src/lpf83.c:0230, export CO SKIP