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