# code: http://golf.shinh.org/reveal.rb?Life+Liberty+and+Property/tails_1681268499&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

. #(map):[int,[chr]] 
    - #(diff):[chr] 
        `$ #(uniq):[chr] 
            `< #(sort):[chr] 
                ; #(save):[chr] 
                    \ #(reverse):[chr] 
                        allInput #(;_):[chr] 
                sets A 
        ".\n" #(string):[chr] 
    \B 
    ~ #(tuple):int,[chr] 
        ; #(save):int 
            + #(sum):int 
                ! #(zip with):[int] 
                    > #(drop):[int] 
                        22 #(integer):int 
                        \ #(reverse):[int] 
                            `@ #(to base):[int] 
                                ~ #(auto = 10):auto 
                                `* #(product):int 
                                    : #(append):[int] 
                                        + #(add):[int] 
                                            ^ #(pow):int 
                                                ~ #(auto = 10):auto 
                                                21 #(integer):int 
                                            : #(append):[int] 
                                                1 #(integer):int 
                                                fstInt #(_):int 
                                        `@ #(from base):int 
                                            ~ #(auto = 10):auto 
                                            . #(map):[int] 
                                                \ #(reverse):[chr] 
                                                    A #(@):[chr] 
                                                \C 
                                                == #(equal?):int 
                                                    C #($):chr 
                                                    \D 
                                                    B #(_):chr 
                    \E 
                    A #(_):[chr] 
                    ~ #(zipop: by):null 
                    \G F 
                    ? #(index):int 
                        < #(take):[chr] 
                            G #($):int 
                            "." #(string):[chr] 
                        F #(@):chr 
        sets H 
        ^ #(replicate):[chr] 
            H #($):int 
            B #(@):chr