# code: http://golf.shinh.org/reveal.rb?Growing+Vines/tails_1647241322&nbb
# target Nibbles version: 0.25
# commenter version: 0.1.2.181

< #(take):[[chr]] 
    10 #(integer):int 
    `. #(iterate while uniq):[[chr]] 
        @ #(= fstLine):[chr] 
        . #(map):[chr] <--arg( A:[chr] ) 
            << #(init):[[chr]] 
                `\ #(special scans):[[chr]] 
                    : #(append):[chr] 
                        " " #(string):[chr] 
                        $ #(= A):[chr] 
                    ; #(foldop: rev cons):null 
            ? #(if/else):chr <--arg( B:[chr] ) 
                != #(abs diff):int 
                    '\\' #(char):chr 
                    ; #(save):chr -->let( D:chr ) 
                        `( #(uncons):chr -->let( C:[chr] ) 
                            : #(append):[chr] 
                                $ #(= B):[chr] 
                                " " #(string):[chr] 
                ? #(if/else):chr <--arg( E:int ) 
                    ; #(save):int -->let( J:int ) 
                        % #(modulus):int 
                            ; #(save):chr -->let( I:chr ) 
                                / #(foldr1):chr 
                                    `) #(swapped uncons):[chr] -->let( F:chr ) 
                                        _ #(= C):[chr] 
                                    $ #(= H):chr <--arg( H:chr G:chr ) 
                            ~ #(auto = 2):auto 
                    _ #(= I):chr <--arg( K:int ) 
                    ? #(if/else):chr 
                        / #(divide):int 
                            _ #(= F):chr 
                            ; #(save):chr -->let( L:chr ) 
                                '|' #(char):chr 
                        @ #(= L):chr <--arg( M:int ) 
                        ~ #(default):null 
                ? #(if/else):chr 
                    @ #(= J):int 
                    @ #(= L):chr <--arg( N:int ) 
                    #(implicit arg = D):chr