# code: http://golf.shinh.org/reveal.rb?A001037/tails+%28xnor%29_1691059896&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

/ #(foldr):[int] -->let( G:int ) 
    \ #(reverse):[int] 
        , #(range from 1):[int] 
            20 #(integer):int 
    ~ #(tuple):[int],int 
        _ #(= ints):[int] 
        $ #(= fstInt):int 
    #(implicit tuple):[int],int <--arg( C:int B:[int] A:int ) 
        : #(append):[int] 
            @ #(= B):[int] 
            / #(divide):int 
                ; #(save):int -->let( F:int ) 
                    - #(subtract):int 
                        ; #(save):int -->let( D:int ) 
                            ^ #(pow):int 
                                2 #(integer):int 
                                $ #(= C):int 
                        % #(modulus):int 
                            / #(divide):int 
                                ;$ #(= A):int 
                                ; #(save):int -->let( E:int ) 
                                    ^ #(pow):int 
                                        $ #(= D):int 
                                        ;@ #(= fstInt):int 
                            @ #(= D):int 
                ;$ #(= C):int 
        + #(add):int 
            ;_ #(= A):int 
            * #(multiply):int 
                / #(divide):int 
                    ^ #(pow):int 
                        @ #(= E):int 
                        10 #(integer):int 
                    - #(subtract):int 
                        @ #(= E):int 
                        ~ #(auto = 1):auto 
                #(implicit arg = F):int