# code: http://golf.shinh.org/reveal.rb?Back+and+forth/tails_1645683363&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

/ #(foldr):[[chr]] -->let( J:int ) 
    \ #(reverse):[[[chr]]] 
        `/ #(chunks of):[[[chr]]] 
            ~ #(auto = 2):auto 
            % #(split (remove empties)):[[chr]] 
                ;_ #(= allInput):[chr] 
                ~ #(auto = words):auto 
    ~ #(tuple):[[chr]],int 
        % #(split (remove empties)):[[chr]] 
            "" #(string):[chr] 
            ~ #(auto = words):auto 
        0 #(integer):int 
    #(implicit tuple):[[chr]],int <--arg( C:[[chr]] B:[[chr]] A:int ) 
        : #(append):[[chr]] 
            @ #(= B):[[chr]] 
            `: #(list of 2 lists):[[chr]] 
                & #(justify):[chr] 
                    " " #(string):[chr] 
                    ; #(save):int -->let( F:int ) 
                        + #(add):int 
                            , #(length):int 
                                / #(foldr1):[chr] 
                                    $ #(= C):[[chr]] 
                                    $ #(= E):[chr] <--arg( E:[chr] D:[chr] ) 
                            _ #(= A):int 
                    / #(foldr1):[chr] 
                        @ #(= C):[[chr]] 
                        $ #(= H):[chr] <--arg( H:[chr] G:[chr] ) 
                & #(justify):[chr] 
                    " " #(string):[chr] 
                    $ #(= F):int 
                    \ #(reverse):[chr] 
                        ; #(save):[chr] -->let( I:[chr] ) 
                            =~ #(subscript nowrap):[chr] 
                                2 #(integer):int 
                                @ #(= C):[[chr]] 
        - #(subtract):int 
            @ #(= F):int 
            , #(length):int 
                #(implicit arg = I):[chr]