Problem: picket fence

Code: picket+fence/whio_1717330133

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] 
    (implicit map):[[chr]] 
        , (range from 1):[int] 
            9 (integer):int 
        : (append):[chr] <--arg( B:int A:int ) 
            ; (save):[chr] -->let( E:[chr] ) 
                / (foldr1):[chr] 
                    < (take):[[chr]] 
                        $ (= B):int 
                        " _ ""| |" (string list):[[chr]] 
                    @ (= C):[chr] <--arg( D:[chr] C:[chr] ) 
            >> (tail):[chr] 
                ^ (replicate):[chr] 
                    3 (integer):int 
                    : (append):[chr] 
                        ^ (replicate):[chr] 
                            12 (integer):int 
                            = (subscript (wrapped)):chr 
                                / (divide):int 
                                    @ (= B):int 
                                    ~ (auto = 2):auto 
                                "_ " (string):[chr] 
                        $ (= E):[chr] 
    ^ (replicate):[chr] <--arg( G:[chr] F:[chr] ) 
        47 (integer):int 
        "\'" (string):[chr]