IsPrime : -a ->
Arg N : Integer, . : IS_PRIME, - Is_prime = 1 ..

Div_to = N - 1

Do i = 2 to Div_to
 If N _% i then
  Is_prime = 0; Leave
 Else
  Iterate
 ;  
;  

Return