sieve <- function(limit) {
  
}