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) 
    ;;@ (= allLines) 
    , (range from 1) <--arg( A ) 
        ~ (auto = infinity) 
    ~ (zipop: by) 
    . (map) <--arg( C B ) 
        $ (= C) 
        ? (if/else) <--arg( D ) 
            % (modulus) 
                _ (= B) 
                ~ (auto = 2) 
            `) (to uppercase) <--arg( E ) 
                @ (= D) 
            `( (to lowercase) 
                $ (= D)