DECIMAL
* DECIMAL ( -- )

set the BASE to 10
 simulate:
   : DECIMAL 10 BASE ! ;

core ordinary primitive