Problem: Peculiar Prime Printer

Code: Peculiar+Prime+Printer/tails_1730942675

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 string concatenation) 
    (implicit string concatenation) 
        "n=2\nwhile n<1e3:print(n);n+=" (string) 
        % (modulus) 
            + (sum) 
                ! (zip with) 
                    ; (save) -->let( D ) 
                        >> (tail) 
                            ; (save) -->let( C ) 
                                | (filter) 
                                    << (init) 
                                        \ (reverse) 
                                            , (range from 1) 
                                                ;$ (= sndInt) 
                                    ~ (not) 
                                    > (drop) <--arg( A ) 
                                        2 (integer) 
                                        | (filter) 
                                            , (range from 1) 
                                                $ (= A) 
                                            ~ (not) 
                                            % (modulus) <--arg( B ) 
                                                @ (= A) 
                                                $ (= B) 
                    _ (= C) <--arg( E ) 
                    ~ (zipop: by) 
                    * (multiply) <--arg( G F ) 
                        ^ (pow) 
                            / (divide) 
                                ; (save) -->let( H ) 
                                    `* (product) 
                                        _ (= D) 
                                @ (= G) 
                            - (subtract) 
                                @ (= G) 
                                ~ (auto = 1) 
                        - (subtract) 
                            _ (= F) 
                            @ (= G) 
            $ (= H) 
    "%n" (string)