# code: http://golf.shinh.org/reveal.rb?McCarthy+91+function/tails_1644921716&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

#(implicit map):[[chr]] 
    <~ #(take while):[int,int,int] 
        `. #(iterate while uniq):[int,int,int] 
            ~~ #(3-ary tuple):int,int,int 
                1 #(integer):int 
                $ #(= fstInt):int 
                $ #(= fstInt):int 
            #(implicit tuple):int,int,int <--arg( C:int B:int A:int ) 
                ? #(if/else):int -->let( E:int ) 
                    - #(subtract):int 
                        @ #(= B):int 
                        ^ #(pow):int 
                            ~ #(auto = 10):auto 
                            ~ #(auto = 2):auto 
                    ~ #(tuple):int,int <--arg( D:int ) 
                        - #(subtract):int 
                            @ #(= C):int 
                            ~ #(auto = 1):auto 
                        - #(subtract):int 
                            _ #(= B):int 
                            10 #(integer):int 
                    #(implicit tuple):int,int 
                        + #(add):int 
                            $ #(= C):int 
                            ~ #(auto = 1):auto 
                        + #(add):int 
                            11 #(integer):int 
                            @ #(= B):int 
                $ #(= E):int 
                @ #(= C):int 
        _ #(= F):int <--arg( H:int G:int F:int ) 
    : #(append):[chr] <--arg( N:int M:int L:int K:int J:int I:int ) 
        : #(append):[chr] 
            ^ #(replicate):[chr] 
                $ #(= N):int 
                "M(" #(string):[chr] 
            @ #(= M):int 
        ^ #(replicate):[chr] 
            $ #(= N):int 
            ")" #(string):[chr]