Problem: primepolydivisible numbers

Code: primepolydivisible+numbers/tails_1759600402

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) 
    + (add) 
        2 (integer) 
        , (range from 1) 
            10 (integer) 
    : (append) <--arg( B A ) 
        * (join) 
            ; (save) -->let( C ) 
                "\n" (string) 
            + (concat) 
                =\ (scanl) 
                    | (filter) 
                        , (range from 1) 
                            ;$ (= fstInt) 
                        == (equal?) <--arg( D ) 
                            2 (integer) 
                            % (modulus) <--arg( E ) 
                                ^ (pow) 
                                    2 (integer) 
                                    @ (= D) 
                                @ (= D) 
                    >> (tail) <--arg( G F ) 
                        `% (step) 
                            ~ (auto = 2) 
                            ; (save) -->let( H ) 
                                `, (range from 0) 
                                    ;$ (= B) 
                    | (filter) <--arg( J I ) 
                        + (concat) 
                            . (map) 
                                @ (= I) 
                                + (add) <--arg( K ) 
                                    * (multiply) 
                                        ;_ (= B) 
                                        $ (= K) 
                                    ;$ (= H) 
                        ~ (not) 
                        % (modulus) <--arg( L ) 
                            (implicit arg = L) 
                            (implicit arg = J) 
        (implicit arg = C)