# code: http://golf.shinh.org/reveal.rb?QRRBBNNpppppppp/tails_1707458637&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

^ #(pow):int 
    0 #(integer):int 
    , #(length):int 
        > #(drop):[chr] 
            8 #(integer):int 
            + #(concat):[chr] 
                . #(map):[[chr]] 
                    =~ #(group by (also sorts)):[[chr]] 
                        @ #(= fstLine):[chr] 
                        $ #(= A):chr <--arg( A:chr ) 
                    > #(drop):[chr] <--arg( B:[chr] ) 
                        % #(modulus):int 
                            / #(foldr1):chr 
                                $ #(= B):[chr] 
                                $ #(= D):chr <--arg( D:chr C:chr ) 
                            4 #(integer):int 
                        $ #(= B):[chr]