Paste: readable factor code...

[
    >R 0 1 swap <array> >R 1 1 swap <array>
    >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
]

New Annotation