Problem: kaprekars routine

Code: kaprekars+routine/tails_1766045584

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)

(implicit string concatenation) 
    >> (tail) 
        `. (iterate while uniq) 
            @ (= fstLine) 
            & (justify) <--arg( A ) 
                "0" (string) 
                , (length) 
                    $ (= A) 
                = (subscript (wrapped)) 
                    r (read str at base) 
                        \ (reverse) 
                            ; (let) -->let( B ) 
                                `< (sort) 
                                    $ (= A) 
                        10 (integer) 
                    $ (= B) 
    10 (integer) <--arg( D C )