1 import "JavaBuiltin" as Java
\r
11 isPrime p = isPrimeAux (2 :: Integer) p
\r
13 isPrimeAux d p = if d == p then True
\r
14 else if p % d == 0 then False
\r
15 else isPrimeAux (d+1) p
\r
17 nextPrime p = if isPrime p
\r
19 else nextPrime (p+(1 :: Integer))
\r