read-nums
8
range
5
chunks
left-uncons
    itemize
    pop-b
    m:
        tails
        reverse
        @1
        inits
        zip
            push-b
            join
        m2
        extract-array
    }
b4
each
    2
    range
    and
    is-sorted #(list)
f4
    3
    index
    even
f3
    4
    index
    odd
f3
    ( "NNQBBRKR" )
    select
m2
select
unlines