# code: http://golf.shinh.org/reveal.rb?kaprekars+routine/tails_1766045584&nbb
# target Nibbles version: 0.22
# commenter version: 0.1.6.187

>> #(tail):[[chr]] 
    `. #(iterate while uniq):[[chr]] 
        @ #(= fstLine):[chr] 
        & #(justify):[chr] <--arg( A:[chr] ) 
            "0" #(string):[chr] 
            , #(length):int 
                $ #(= A):[chr] 
            - #(subtract):int 
                `r #(read int):int 
                    \ #(reverse):[chr] 
                        ; #(let):[chr] -->let( B:[chr] ) 
                            `< #(sort):[chr] 
                                $ #(= A):[chr] 
                `r #(read int):int 
                    $ #(= B):[chr]