Problem: interleave first every third

Code: interleave+first+every+third/whio_1723575547

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 string concatenation):[chr] 
    ; (save):chr -->let( B:chr ) 
        `( (uncons):chr -->let( A:[chr] ) 
            ;_ (= allInput):[chr] 
    * (join):[chr] 
        : (append):[chr] 
            $ (= B):chr 
            ~ (auto = []):auto 
        `/ (chunks of):[[chr]] 
            ~ (auto = 2):auto 
            (implicit arg = A):[chr]