1*afc2ba1dSToomas Soome: 0x { | old-base -- n } 2*afc2ba1dSToomas Soome base @ to old-base 3*afc2ba1dSToomas Soome 16 base ! 4*afc2ba1dSToomas Soome 0 0 parse-word >number 2drop drop 5*afc2ba1dSToomas Soome old-base base ! 6*afc2ba1dSToomas Soome; 7