Problem: windows shortnames

Code: windows+shortnames/whio_1760735026

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) 
    ; (save) -->let( H ) 
        . (map) 
            ;@ (= allLines) 
            ! (zip with) <--arg( A ) 
                % (split (remove empties)) 
                    . (map) 
                        | (filter) 
                            $ (= A) 
                            $ (= B) <--arg( B ) 
                        `) (to uppercase) <--arg( C ) 
                            $ (= C) 
                    ; (save) -->let( D ) 
                        "." (string) 
                : (append) <--arg( E ) 
                    6 (integer) 
                    3 (integer) 
                ~ (zipop: by) 
                < (take) <--arg( G F ) 
                    @ (= F) 
                    $ (= G) 
    , (range from 1) <--arg( I ) 
        ~ (auto = infinity) 
    ~ (zipop: by) 
    * (join) <--arg( K J ) 
        : (append) 
            : (append) 
                "~" (string) 
                , (length) 
                    `? (find indices [by]) 
                        < (take) 
                            @ (= J) 
                            _ (= H) 
                        @ (= K) <--arg( L ) 
            (implicit arg = D) 
        (implicit arg = K)