# 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]] -->let( I:int ) 
        \ #(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 
        #(implicit tuple):[[chr]],int <--arg( C:[chr] B:[[chr]] A:int ) 
            ? #(if/else):[[chr]] -->let( H:int ) 
                _ #(= A):int 
                ~ #(tuple):[[chr]],int <--arg( D:int ) 
                    : #(append):[[chr]] 
                        @ #(= C):[chr] 
                        _ #(= B):[[chr]] 
                    - #(subtract):int 
                        ;$ #(= A):int 
                        ~ #(auto = 1):auto 
                #(implicit tuple):[[chr]],int 
                    ? #(if/else):[[chr]] -->let( G:int ) 
                        ? #(index):int 
                            $ #(= C):[chr] 
                            'R' #(char):chr 
                        ~ #(tuple):[[chr]],int <--arg( E:int ) 
                            : #(append):[[chr]] 
                                < #(take):[[chr]] 
                                    ; #(save):int -->let( F:int ) 
                                        `r #(read int):int 
                                            @ #(= C):[chr] 
                                    ;$ #(= B):[[chr]] 
                                ;$ #(= B):[[chr]] 
                            ;@ #(= A):int 
                        #(implicit tuple):[[chr]],int 
                            _ #(= B):[[chr]] 
                            #(implicit arg = F):int 
                    #(implicit arg = G):int 
            #(implicit arg = H):int