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