Problem: rect

Code: rect/kaki_1734756562

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)

: (append):[[chr]] 
    : (append):[[chr]] 
        ;~ (save fn):[chr] -->let( D:fn([chr]->[chr]) ) 
            ; (save):[chr] -->let( A:[chr] ) 
                "-+" (string):[chr] 
            * (join):[chr] <--arg( B:[chr] ) 
                ^ (replicate):[chr] 
                    _ (= fstInt):int 
                    `( (uncons):chr -->let( C:[chr] ) 
                        $ (= B):[chr] 
                `: (list of 2 lists):[[chr]] 
                    $ (= C):[chr] 
                    $ (= C):[chr] 
        . (map):[[chr]] 
            , (range from 1):[int] 
                ;_ (= sndInt):int 
            @ (= D):[chr] <--arg( E:int ) 
                " |" (string):[chr] 
    $ (= D):[chr] 
        (implicit arg = A):[chr]