Problem: Back and forth

Code: Back+and+forth/tails_1645683363

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)

/ (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]