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

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