library(SNPtools)
starts <- as.character(as.integer(seq(1,300000001,100000)))
ends <- as.character(as.integer(as.integer(starts)+99999))
#out <- matrix(NA,nr=61,nc=3)
for (i in 21:40)
  {
  cat(i)
  out[i,] <- itemsInRange("countsnps", "chr1", starts[i], ends[i])
  system("sleep 2")
  }
