# code: http://golf.shinh.org/reveal.rb?Prime+Numbers/Dingledooper_1640233280&nbb
# target Nibbles version: 0.2
# commenter version: 0.1.2.181

< #(take):[int] 
    $ #(= fstInt):int 
    | #(filter):[int] 
        , #(range from 1):[int] 
            ~ #(auto = infinity):auto 
        % #(modulus):int <--arg( A:int ) 
            ^ #(pow):int 
                `* #(product):int 
                    , #(range from 1):[int] 
                        - #(subtract):int 
                            $ #(= A):int 
                            ~ #(auto = 1):auto 
                #(implicit arg = A):int 
            #(implicit arg = A):int