# code: http://golf.shinh.org/reveal.rb?compression+challenge+but+not+in+the+way+you+think/tails_1658458351&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

\ #(reverse):[[chr]] 
    / #(foldr):[[chr]] 
        \ #(reverse):[[chr]] 
            % #(split (remove empties)):[[chr]] 
                fstLine #(@):[chr] 
                ~ #(auto = words):auto 
        ~ #(tuple):[[chr]],int 
            % #(split (remove empties)):[[chr]] 
                fstLine #(@):[chr] 
                fstLine #(@):[chr] 
            0 #(integer):int 
        \C B A 
        #(implicit tuple):[[chr]],int 
            ? #(if/else):[[chr]] 
                A #(_):int 
                \D 
                ~ #(tuple):[[chr]],int 
                    : #(append):[[chr]] 
                        C #(@):[chr] 
                        B #(_):[[chr]] 
                    - #(subtract):int 
                        A #(;$):int 
                        ~ #(auto = 1):auto 
                #(implicit tuple):[[chr]],int 
                    ? #(if/else):[[chr]] 
                        ? #(index):int 
                            C #($):[chr] 
                            'R' #(char):chr 
                        \E 
                        ~ #(tuple):[[chr]],int 
                            : #(append):[[chr]] 
                                < #(take):[[chr]] 
                                    ; #(save):int 
                                        `r #(read int):int 
                                            C #(@):[chr] 
                                    sets F 
                                    B #(;$):[[chr]] 
                                B #(;$):[[chr]] 
                            A #(;@):int 
                        #(implicit tuple):[[chr]],int 
                            B #(_):[[chr]] 
                            #(implicit arg = F):int 
                    #sets G 
                    #(implicit arg = G):int 
            #sets H 
            #(implicit arg = H):int 
    #sets I