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