Create is_prime.scm