DECIMAL ( -- )
BASE
simulate: : DECIMAL 10 BASE ! ;
reference: p4_decimal in ../src/core.c:0904, export CO DECIMAL