( scratchpad ) \ bench optimized. [ 100001 0 swap \ ( gensym ) [ over over fixnum< [ >R >R 100001 0 swap \ ( gensym ) [ over over fixnum< [ >R >R R> R> >R 1 fixnum+fast R> ( gensym ) ] [ 2drop ] if ] label R> R> >R 1 fixnum+fast R> ( gensym ) ] [ 2drop ] if ] label ] ( scratchpad ) \ bench-x optimized. [ 100001 0 swap \ ( gensym ) [ over over fixnum< [ >R >R dup 3735928559 bitxor drop R> R> >R 1 fixnum+fast R> ( gensym ) ] [ 2drop drop ] if ] label ] ( scratchpad ) \ noise2 optimized. [ 3735928559 dupd bitxor over 14 over >R shift 4294967295 >R >bignum R> bignum-bitand R> -18 shift 4294967295 >R >bignum R> bignum-bitand bignum-bitor >R >bignum R> bignum- rot dupd bitxor over dup >R 11 bignum-shift 4294967295 bignum-bitand R> -21 bignum-shift 4294967295 bignum-bitand bignum-bitor >R >bignum R> bignum- rot dupd >bignum bignum-bitxor over dup >R 25 bignum-shift 4294967295 bignum-bitand R> -7 bignum-shift 4294967295 bignum-bitand bignum-bitor bignum- rot dupd bignum-bitxor over dup >R 16 bignum-shift 4294967295 bignum-bitand R> -16 bignum-shift 4294967295 bignum-bitand bignum-bitor bignum- rot dupd bignum-bitxor over dup >R 4 bignum-shift 4294967295 bignum-bitand R> -28 bignum-shift 4294967295 bignum-bitand bignum-bitor bignum- rot dupd bignum-bitxor swap dup >R 14 bignum-shift 4294967295 bignum-bitand R> -18 bignum-shift 4294967295 bignum-bitand bignum-bitor bignum- swap dupd bignum-bitxor swap dup >R 24 bignum-shift 4294967295 bignum-bitand R> -8 bignum-shift 4294967295 bignum-bitand bignum-bitor bignum- bignum>float 268435455.0 float/f ] ( scratchpad )