simulate:
   : VOCS VOC-LINK @ BEGIN DUP WHILE
                           DUP BODY> >NAME .NAME
                           ->VOC-LINK @
                     REPEAT DROP ; 

reference: p4_vocs in ../src/lpf83.c:0356, export CO VOCS