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