# 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] 
                                + #(add):[int] 
                                    -16 #(integer):int 
                                    , #(range from 1):[int] 
                                        32 #(integer):int 
                            sets A 
                            A #($):[int] 
                    \B 
                    ~ #(tuple):int,int 
                        / #(foldr1):int 
                            B #($):[int] 
                            \D C 
                            D #($):int 
                        / #(foldr1):int 
                            B #($):[int] 
                            \F E 
                            E #(@):int 
                \H G 
                allInput #(;;_):[chr] 
                , #(zipop: make tuple):null 
            \K J I 
            ? #(index):int 
                "*" #(string):[chr] 
                I #(_):chr 
        \N M L 
        : #(append):[int] 
            `$ #(signum):int 
                N #($):int 
            / #(divide):int 
                * #(multiply):int 
                    fstInt #(;@):int 
                    M #(@):int 
                N #($):int 
    \P O 
    . #(map):[[chr],int,[chr],int,[chr]] 
        P #($):[int,int,chr] 
        \S R Q 
        ~~~~ #(5-ary tuple):[chr],int,[chr],int,[chr] 
            "(" #(string):[chr] 
            R #(@):int 
            ", " #(string):[chr] 
            * #(multiply):int 
                ~ #(auto = -1):auto 
                S #($):int 
            ")" #(string):[chr]