# code: http://golf.shinh.org/reveal.rb?Arithmetic+derivative/tails_1696492229&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

#(implicit map):[[chr]] 
    % #(split (remove empties)):[[chr]] 
        @ #(= fstLine):[chr] 
        ~ #(auto = words):auto 
    ? #(if/else):[chr] <--arg( B:[chr] A:[chr] ) 
        == #(equal?):int 
            $ #(= B):[chr] 
            ; #(save):int <--arg( C:[chr] ) -->let( D:int ) 
                `r #(read int):int 
                    @ #(= B):[chr] 
        + #(sum):int <--arg( E:int ) -->let( N:[int] ) 
            `. #(iterate while uniq):[int,int] 
                ~ #(tuple):int,int 
                    0 #(integer):int 
                    @ #(= D):int 
                #(implicit tuple):int,int <--arg( G:int F:int ) 
                    ? #(if/else):int -->let( M:int ) 
                        - #(subtract):int 
                            ^ #(pow):int 
                                @ #(= F):int 
                                ~ #(auto = 2):auto 
                            ~ #(auto = 1):auto 
                        ~ #(tuple):int,int <--arg( H:int ) 
                            / #(divide):int 
                                ;@ #(= D):int 
                                ; #(save):int -->let( L:int ) 
                                    / #(foldr1):int 
                                        | #(filter):[int] 
                                            >> #(tail):[int] 
                                                , #(range from 1):[int] 
                                                    ~ #(auto = infinity):auto 
                                            ~ #(not):null 
                                            % #(modulus):int <--arg( I:int ) 
                                                ;$ #(= F):int 
                                                $ #(= I):int 
                                        $ #(= K):int <--arg( K:int J:int ) 
                            / #(divide):int 
                                ;$ #(= F):int 
                                $ #(= L):int 
                        ~ #(default):null 
                    $ #(= M):int 
        `D #(to base from data):[chr] 
            -75 #(to base from data arg):null 
#(postdata (hex): to base from data)
3e3e66fcd37f68454ee77a7a5ce6be8f875f7717b2af
# "Wait, that\'s not a number..."