Problem: I like unit fractions

Code: I+like+unit+fractions/tails_1710840436

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)

(implicit string concatenation) 
    < (take) 
        2 (integer) 
        @ (= fstLine) 
    / (divide) 
        ; (save) -->let( A ) 
            ^ (pow) 
                2 (integer) 
                63 (integer) 
        - (subtract) 
            = (subscript (wrapped)) 
                % (modulus) 
                    / (foldr1) 
                        = (subscript (wrapped)) 
                            2 (integer) 
                            ; (save) -->let( B ) 
                                % (split (remove empties)) 
                                    _ (= fstLine) 
                                    ~ (auto = words) 
                        $ (= D) <--arg( D C ) 
                    21 (integer) 
                : (append) 
                    + (add) 
                        ; (save) -->let( I ) 
                            / (foldr1) 
                                ; (save) -->let( F ) 
                                    . (map) 
                                        $ (= B) 
                                        / (divide) <--arg( E ) 
                                            _ (= A) 
                                            `r (read int) 
                                                >> (tail) 
                                                    $ (= E) 
                                $ (= H) <--arg( H G ) 
                        ; (save) -->let( L ) 
                            / (foldr1) 
                                @ (= F) 
                                @ (= J) <--arg( K J ) 
                    : (append) 
                        `& (bit intersection) 
                            @ (= I) 
                            $ (= L) 
                        : (append) 
                            - (subtract) 
                                @ (= I) 
                                $ (= L) 
                            : (append) 
                                `| (bit union) 
                                    $ (= L) 
                                    @ (= I) 
                                `^ (bit xor) 
                                    @ (= I) 
                                    $ (= L) 
            ~ (auto = 1)