# code: http://golf.shinh.org/reveal.rb?count+up+digits/tails_1645093087&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

\ #(reverse):[[chr]] 
    `. #(iterate while uniq):[[chr]] 
        @ #(= fstLine):[chr] 
        : #(append):[chr] <--arg( A:[chr] ) 
            : #(append):[chr] 
                `<~ #(take drop while):[chr] -->let( D:[chr] ) 
                    $ #(= A):[chr] 
                    == #(equal?):int <--arg( B:chr ) 
                        $ #(= B):chr 
                        0 #(integer):int <--arg( C:chr ) 
                ?, #(if/else (lazy list)):[chr] 
                    $ #(= D):[chr] 
                    - #(subtract):chr <--arg( E:[chr] ) 
                        `( #(uncons):chr -->let( F:[chr] ) 
                            @ #(= D):[chr] 
                        ~ #(auto = 1):auto 
                    $ #(= F):[chr] 
            #(implicit arg = F):[chr]