Problem: alternating case lines

Code: alternating+case+lines/tails_1645795701

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):[int] 
    ;;@ (= sndLine):[chr] 
    , (range from 1):[int] <--arg( A:chr ) 
        ~ (auto = infinity):auto 
    ~ (zipop: by):null 
    % (modulus):int <--arg( C:chr B:int ) 
        $ (= C):chr 
        ? (if/else):chr 
            % (modulus):int 
                _ (= fstInt):int 
                ~ (auto = 2):auto 
            `) (to uppercase):chr <--arg( D:int ) 
                @ (= C):chr 
            `( (to lowercase):chr 
                $ (= C):chr