ints <- function(start, end) {
  if (start > end) return(NULL)
  return(c(start, ints(start + 1, end)))
}