Problem: uppercase the 17th letter

Code: uppercase+the+17th+letter/tails_1684721981

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] 
    `\ (special scans):[[chr]] 
        @ (= fstLine):[chr] 
        : (foldop: cons):null 
    ? (if/else):chr <--arg( B:[chr] A:[chr] ) 
        == (equal?):int 
            , (length):int 
                | (filter):[chr] 
                    `) (swapped uncons):[chr] -->let( C:chr ) 
                        \ (reverse):[chr] 
                            $ (= B):[chr] 
                    $ (= D):chr <--arg( D:chr ) 
            16 (integer):int <--arg( E:int ) 
        `) (to uppercase):chr <--arg( F:int ) 
            @ (= C):chr 
        (implicit arg = C):chr