# code: http://golf.shinh.org/reveal.rb?SMB3+15+bit+LFSR/tails_1696901109&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

< #(take):[int] 
    + #(add):int 
        fstInt #($):int 
        ~ #(auto = 1):auto 
    `. #(iterate while uniq):[int] 
        ; #(save):int 
            16384 #(integer):int 
        sets A 
        \B 
        + #(add):int 
            `& #(bit intersection):int 
                * #(multiply):int 
                    + #(add):int 
                        64 #(integer):int 
                        A #(@):int 
                    B #($):int 
                A #(@):int 
            / #(divide):int 
                B #($):int 
                ~ #(auto = 2):auto