# 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 -->let( A:int ) 
            16384 #(integer):int 
        + #(add):int <--arg( B:int ) 
            `& #(bit intersection):int 
                * #(multiply):int 
                    + #(add):int 
                        64 #(integer):int 
                        @ #(= A):int 
                    $ #(= B):int 
                @ #(= A):int 
            / #(divide):int 
                $ #(= B):int 
                ~ #(auto = 2):auto