# code: http://golf.shinh.org/reveal.rb?Chess960/tails+%28darrenks%28rotary-o%29%2Cv0.24%29_1645706780&nbb
# target Nibbles version: 0.24
# commenter version: 0.1.2.181

/ #(foldr):[chr] 
    \ #(reverse):[int,chr] 
        ! #(zip with):[int,chr] 
            : #(append):[int] 
                = #(subscript (wrapped)):[int] 
                    + #(add):int 
                        `/ #(divmod):int -->let( B:int ) 
                            `/ #(divmod):int -->let( A:int ) 
                                $ #(= fstInt):int 
                                16 #(integer):int 
                            6 #(integer):int 
                        ~ #(auto = 1):auto 
                    `_ #(subsequences):[[int]] 
                        ~ #(auto = 2):auto 
                        `, #(range from 0):[int] 
                            5 #(integer):int 
                : #(append):[int] 
                    $ #(= B):int 
                    `< #(sort):[int] 
                        : #(append):[int] 
                            * #(multiply):int 
                                `/ #(divmod):int -->let( C:int ) 
                                    @ #(= A):int 
                                    4 #(integer):int 
                                ~ #(auto = 2):auto 
                            + #(add):int 
                                * #(multiply):int 
                                    $ #(= C):int 
                                    ~ #(auto = 2):auto 
                                ~ #(auto = 1):auto 
            "NNQBB" #(string):[chr] <--arg( D:int ) 
            , #(zipop: make tuple):null 
    "RKR" #(string):[chr] <--arg( H:int G:chr F:int E:chr ) 
    : #(append):[chr] <--arg( K:int J:chr I:[chr] ) 
        `< #(take also drop):[chr] -->let( L:[chr] ) 
            $ #(= K):int 
            _ #(= I):[chr] 
        : #(append):[chr] 
            _ #(= J):chr 
            #(implicit arg = L):[chr]