Created isPrime.prolog