Problem: name of alkanes

Code: name+of+alkanes/whio_1759453235

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) 
    : (append) 
        / (foldr1) 
            < (take) 
                + (add) 
                    ; (save) -->let( B ) 
                        `/ (divmod) -->let( A ) 
                            $ (= fstInt) 
                            10 (integer) 
                    ~ (auto = 1) 
                =~ (subscript nowrap) 
                    @ (= A) 
                    ; (save) -->let( G ) 
                        : (append) 
                            `) (swapped uncons) -->let( E ) 
                                `) (swapped uncons) -->let( D ) 
                                    . (map) 
                                        % (split (remove empties)) 
                                            `D (to base from data) 
                                                -25 (to base from data arg) 
                                            "f" (string) 
                                        % (split (remove empties)) <--arg( C ) 
                                            $ (= C) 
                                            ~ (auto = words) 
                            . (map) 
                                @ (= D) 
                                `: (list of 2 lists) <--arg( F ) 
                                    $ (= F) 
                                    : (append) 
                                        $ (= F) 
                                        "a" (string) 
            @ (= H) <--arg( I H ) 
        =~ (subscript nowrap) 
            ;$ (= B) 
            : (append) 
                . (map) 
                    @ (= E) 
                    ? (if/else) <--arg( J ) 
                        - (subtract) 
                            ;;$ (= fstInt) 
                            21 (integer) 
                        - (diff) <--arg( K ) 
                            @ (= J) 
                            "i" (string) 
                        $ (= J) 
                > (drop) 
                    2 (integer) 
                    . (map) 
                        $ (= G) 
                        : (append) <--arg( L ) 
                            `| (list union) 
                                / (foldr1) 
                                    $ (= L) 
                                    @ (= M) <--arg( N M ) 
                                "a" (string) <--arg( O ) 
                            "cont" (string) 
    "ane" (string) 
(postdata (hex): to base from data)
8eda88254b3f6c9b98375213751cfc9c75acb8d83f7e8e6d9f9aea731b08ca53718ead543e06019
("pent hex hept oct nonfdec icosfmeth un henfeth dofprop trifbut tetra")