
HEX
87654321 VARIABLE RAND

: RANDOM ( UPPER-BOUND -> RANDOM-NUMBER )
   RAND @
   8 0 DO
      DUP 80000000 AND IF
         76B553 XOR 1 << 1 OR
      ELSE
         1 <<
      THEN
   LOOP
   DUP RAND !
   18 >>
   SWAP /MOD DROP
   ;
DECIMAL
