xref: /titanic_51/usr/src/common/ficl/test/prefix.fr (revision a1bf3f785ae05c419b339c3a2061f2b18c024f61)
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