Problem: McCarthy 91 function

Code: McCarthy+91+function/tails_1644921716

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)

(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]