Problem: Arithmetic derivative

Code: Arithmetic+derivative/tails_1696492229

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)

(implicit map):[[chr]] 
    % (split (remove empties)):[[chr]] 
        @ (= fstLine):[chr] 
        ~ (auto = words):auto 
    ? (if/else):[chr] <--arg( B:[chr] A:[chr] ) 
        == (equal?):int 
            $ (= B):[chr] 
            ; (let):int <--arg( C:[chr] ) -->let( D:int ) 
                r (read str at base):int 
                    @ (= B):[chr] 
                    0 (integer):int 
        `. (iterate while uniq):[int,int] <--arg( E: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 
                            ; (let):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 (dec): to base from data)
23288155044501067951786801229353661222355846464778927
("Wait, that\'s not a number...")