# 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] -->let( A:[chr] ) 
                    \ #(reverse):[chr] 
                        ;_ #(= allInput):[chr] 
        ".\n" #(string):[chr] 
    ~ #(tuple):int,[chr] <--arg( B:chr ) 
        ; #(save):int -->let( H: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] 
                                                == #(equal?):int <--arg( C:chr ) 
                                                    $ #(= C):chr 
                                                    _ #(= B):chr <--arg( D:chr ) 
                    _ #(= A):[chr] <--arg( E:int ) 
                    ~ #(zipop: by):null 
                    ? #(index):int <--arg( G:int F:chr ) 
                        < #(take):[chr] 
                            $ #(= G):int 
                            "." #(string):[chr] 
                        @ #(= F):chr 
        ^ #(replicate):[chr] 
            $ #(= H):int 
            @ #(= B):chr