This is a quick and dirty way to find prime numbers in a set.

````
{{
  #2 'last var<n>
  :extract (s-s)
    [ @last dup-pair eq?
      [ drop-pair TRUE ]
      [ mod n:-zero? ] choose ] set:filter ;
---reveal---
  :get-primes (s-s)
    #2 !last
    dup fetch [ extract &last v:inc ] times ;
}}
````

And a test:

````
  here
  #7500 ,
  #2 #7502 [ dup , n:inc ] times drop
  get-primes [ putn sp ] set:for-each
````