# code: http://golf.shinh.org/reveal.rb?nightmare+problem/tails_1682912421&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

#(implicit map):[[[chr],int,[chr],int,[chr]]] 
    =~ #(group by (also sorts)):[[int,int,chr]] 
        | #(filter):[int,int,chr] 
            ! #(zip with):[int,int,chr] 
                . #(map):[int,int] 
                    `* #(nary cartesian product):[[int]] 
                        `: #(list of 2 lists):[[int]] 
                            ; #(save):[int] -->let( A:[int] ) 
                                + #(add):[int] 
                                    -16 #(integer):int 
                                    , #(range from 1):[int] 
                                        32 #(integer):int 
                            $ #(= A):[int] 
                    ~ #(tuple):int,int <--arg( B:[int] ) 
                        / #(foldr1):int 
                            $ #(= B):[int] 
                            $ #(= D):int <--arg( D:int C:int ) 
                        / #(foldr1):int 
                            $ #(= B):[int] 
                            @ #(= E):int <--arg( F:int E:int ) 
                ;;_ #(= allInput):[chr] <--arg( H:int G:int ) 
                , #(zipop: make tuple):null 
            ? #(index):int <--arg( K:int J:int I:chr ) 
                "*" #(string):[chr] 
                _ #(= I):chr 
        : #(append):[int] <--arg( N:int M:int L:chr ) 
            `$ #(signum):int 
                $ #(= N):int 
            / #(divide):int 
                * #(multiply):int 
                    ;@ #(= fstInt):int 
                    @ #(= M):int 
                $ #(= N):int 
    . #(map):[[chr],int,[chr],int,[chr]] <--arg( P:[int,int,chr] O:[int,int,chr] ) 
        $ #(= P):[int,int,chr] 
        ~~~~ #(5-ary tuple):[chr],int,[chr],int,[chr] <--arg( S:int R:int Q:chr ) 
            "(" #(string):[chr] 
            @ #(= R):int 
            ", " #(string):[chr] 
            * #(multiply):int 
                ~ #(auto = -1):auto 
                $ #(= S):int 
            ")" #(string):[chr]