[ >R 0 1 swap >R 1 1 swap >R "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" R> "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" 0 "COMPLEX SHUFFLE" \ ( gensym ) [ ( 3341690 3341691 3342021 3342019 -- 3341690 3341691 3342021 3342019 3341690 ) ( 3341698 3342027 3342029 3341700 -- 3341698 3342027 3342029 3341700 3341698 ) fixnum< [ ( 3341697 3341701 3342033 3342035 -- 3342033 3342035 3341697 3341701 3342033 3342035 ) "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" swap swap "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" 2 slot "COMPLEX SHUFFLE" 2 slot + "COMPLEX SHUFFLE" 2 slot "COMPLEX SHUFFLE" 2 set-slot R> 2 set-slot "COMPLEX SHUFFLE" "COMPLEX SHUFFLE" 1 fixnum+fast "COMPLEX SHUFFLE" ( gensym ) ] [ ( 3341697 3341701 3342033 3342035 -- ) ] if ] label R> 2 slot ]