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