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