: RANDOM ?DUP IF _random SWAP MOD ELSE _random THEN ;