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) 
    % (split (remove empties)) 
        @ (= fstLine) 
        ~ (auto = words) 
    ? (if/else) <--arg( B A ) 
        == (equal?) 
            $ (= B) 
            ; (let) <--arg( C ) -->let( D ) 
                r (read str at base) 
                    @ (= B) 
                    0 (integer) 
        `. (iterate while uniq) <--arg( E ) 
            ~ (tuple) 
                0 (integer) 
                @ (= D) 
            (implicit tuple) <--arg( G F ) 
                ? (if/else) -->let( M ) 
                    - (subtract) 
                        ^ (pow) 
                            @ (= F) 
                            ~ (auto = 2) 
                        ~ (auto = 1) 
                    ~ (tuple) <--arg( H ) 
                        / (divide) 
                            ;@ (= D) 
                            ; (let) -->let( L ) 
                                / (foldr1) 
                                    | (filter) 
                                        >> (tail) 
                                            , (range from 1) 
                                                ~ (auto = infinity) 
                                        ~ (not) 
                                        % (modulus) <--arg( I ) 
                                            ;$ (= F) 
                                            $ (= I) 
                                    $ (= K) <--arg( K J ) 
                        / (divide) 
                            ;$ (= F) 
                            $ (= L) 
                    ~ (default) 
                $ (= M) 
        `D (to base from data) 
            -75 (to base from data arg) 
(postdata (dec): to base from data)
23288155044501067951786801229353661222355846464778927
("Wait, that\'s not a number...")