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