Problem: uppercase the 17th letter

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

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)

! (zip with) 
    @ (= fstLine) 
    , (range from 1) <--arg( A ) 
        ~ (auto = infinity) 
    ~ (zipop: by) 
    - (subtract) <--arg( C B ) 
        $ (= C) 
        * (multiply) 
            == (equal?) 
                @ (= B) 
                ? (index) <--arg( D ) 
                    `\ (special scans) 
                        . (map) 
                            ;@ (= fstLine) 
                            , (length) <--arg( E ) 
                                \ (char class) 
                                    $ (= E) 
                                    l (isLower) 
                        + (foldop: add) 
                    17 (integer) 
            32 (integer)