# code: http://golf.shinh.org/reveal.rb?Iterative+Root/whio_1739293739&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.6.187

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