# code: http://golf.shinh.org/reveal.rb?Iterative+Root/tails+%28whio%29_1739333918&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.6.187

* #(join):[chr] 
    "," #(string):[chr] 
    : #(append):[[chr]] 
        ; #(save):[[chr]] -->let( G:[[chr]] ) 
            `$ #(uniq):[[chr]] 
                >> #(tail):[[chr]] 
                    . #(map):[[chr]] 
                        `. #(iterate while uniq):[int] 
                            * #(multiply):int 
                                + #(sum):int 
                                    `) #(swapped uncons):[int] -->let( B:int ) 
                                        `) #(swapped uncons):[int] -->let( A:int ) 
                                            _ #(= ints):[int] 
                                ; #(save):int -->let( C:int ) 
                                    ^ #(pow):int 
                                        ~ #(auto = 10):auto 
                                        4 #(integer):int 
                            / #(divide):int <--arg( D:int ) 
                                + #(add):int 
                                    / #(divide):int 
                                        * #(multiply):int 
                                            ^ #(pow):int 
                                                @ #(= C):int 
                                                _ #(= B):int 
                                            ;$ #(= A):int 
                                        ^ #(pow):int 
                                            $ #(= D):int 
                                            ; #(save):int -->let( E:int ) 
                                                - #(subtract):int 
                                                    _ #(= B):int 
                                                    ~ #(auto = 1):auto 
                                    * #(multiply):int 
                                        @ #(= D):int 
                                        $ #(= E):int 
                                ;$ #(= B):int 
                        \ #(reverse):[chr] <--arg( F:int ) 
                            * #(join):[chr] 
                                "." #(string):[chr] 
                                `/ #(chunks of):[[chr]] 
                                    3 #(integer):int 
                                    >> #(tail):[chr] 
                                        \ #(reverse):[chr] 
                                            `p #(int to str):[chr] 
                                                + #(add):int 
                                                    5 #(integer):int 
                                                    $ #(= F):int 
        / #(foldr1):[chr] 
            $ #(= G):[[chr]] 
            @ #(= H):[chr] <--arg( I:[chr] H:[chr] )