# code: http://golf.shinh.org/reveal.rb?uppercase+the+17th+letter/darrenks_1684605276&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

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