Create sieve.R