# code: http://golf.shinh.org/reveal.rb?I+like+unit+fractions/tails_1710840436&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

#(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