PrimeNumbers = StringFilter ?, ?, ( X : 
                                        If X, IS_INTEGER then Return 1
                                        Else Return 0
                                  ), 
                                  ( X : 
                                        If X, IS_PRIME then Return 1
                                        Else Return 0
                                  ), 
                                  ( X : 
                                        If !X then Return 1
                                        Else Return 0
                                  )

IsPrime : -a ->
Arg String : _, . : IS_PRIME

I : Integer <- String

Return IsPrime( I )

IsPrime : -a ->
Arg Integer : _, . : IS_PRIME, - Is_prime = 0 ..

Is_prime = 1 [ I > 1 ]

Do i = 2 to I - 1
 If I _% i then
  Is_prime = 0; Leave
 Else
  Iterate
 ;
;

Return