Problem: name of alkanes

Code: name+of+alkanes/tails_1758885234

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)

: (append) 
    ? (if/else) 
        == (equal?) 
            $ (= fstInt) 
            11 (integer) <--arg( A ) 
        "un" (string) <--arg( B ) 
        ? (if/else) 
            `% (moddiv) -->let( C ) 
                $ (= fstInt) 
                10 (integer) 
            = (subscript (wrapped)) <--arg( D ) 
                ? (if/else) 
                    ; (save) -->let( E ) 
                        - (subtract) 
                            _ (= fstInt) 
                            4 (integer) 
                    _ (= D) <--arg( F ) 
                    $ (= E) 
                : (append) 
                    `< (take also drop) -->let( H ) 
                        3 (integer) 
                        ; (save) -->let( G ) 
                            % (split (remove empties)) 
                                `D (to base from data) 
                                    -25 (to base from data arg) 
                                ~ (auto = words) 
                    ;~ (save fn) -->let( K ) 
                        $ (= H) 
                        . (map) <--arg( I ) 
                            $ (= I) 
                            : (append) <--arg( J ) 
                                $ (= J) 
                                "a" (string) 
            ~ (default) 
    : (append) 
        ^ (replicate) 
            == (equal?) 
                / (divide) 
                    ;_ (= fstInt) 
                    ~ (auto = 2) 
                10 (integer) <--arg( L ) 
            "i" (string) 
        : (append) 
            ? (if/else) 
                ;@ (= C) 
                = (subscript (wrapped)) <--arg( M ) 
                    $ (= M) 
                    @ (= K) 
                        : (append) 
                            "dec""cos" (string list) 
                            . (map) 
                                @ (= K) 
                                    > (drop) 
                                        2 (integer) 
                                        ;$ (= G) 
                                : (append) <--arg( N ) 
                                    $ (= N) 
                                    "cont" (string) 
                ~ (default) 
            "ne" (string) 
(postdata (hex): to base from data)
380461e2fa69daffb89a939b26199a82812c7387ae5198a2db6d6d52930e72b5
("hen do tri tetr pent hex hept oct non meth eth prop but")