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