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