.RESET()

  ## TODO: Load in DT.anal from history and compare max(date)

  datesToForecast <- seq.Date(from=as.Date("2014-03-01"), to=Sys.Date(), by=10)
  FORECASTS <- emptylist(datesToForecast)

  for (fakeToday in as.Date(nwhich(sapply(FORECASTS, is.null))))
  {
    start_from_last_file <- FALSE

    ...
  }    
  
  attr(FORECASTS, "datesToForecast") <- datesToForecast
  jesusForData(FORECASTS)