if (TRUE) {

  keyCols.DateCust <- c("year", "month", "customerid")

  ## SHORTHAND FOR CODE  (Shallow copy)
  DT.using <- DT.Spotify.Counts.by.date.product.mobile.country.user

  setkeyIfNot(DT.using, keyCols.DateCust)

  stopifnot(identical(key(DT.Spotify.Counts.by.date.product.mobile.country.user), keyCols.DateCust))

  notify("Creating Tier Column")

  ## Don't duplicate
  if (!"Tier" %in% names(DT.using))
    DT.using[, Tier := makeFactorUsingDict(product, getDict.SpotifyTier()) ]

  notify("Calculating Conversions")

  ## Calculate conversion
  DT.using[, Conversion := diffNA(2^as.integer(Tier), padTop=TRUE, fill=0L), by=keyCols.DateCust]

  notify("Tabulating")

  ## Tabulate Conversions
  ConversionsPerMonth <- DT.using[, table(Conversion, paste(year, "_", month))]

  ## To data.table
  DT.ConversionsPerMonth <- as.data.table(ConversionsPerMonth)

  notify("Tabulating by Country")

  ## Tabulate Conversions
  ConversionsPerMonthPerCountry <- DT.using[, table(Conversion, paste(year, "_", month), country)]

  ## To data.table
  DT.ConversionsPerMonthPerCountry <- as.data.table(ConversionsPerMonthPerCountry)


  notify("DONT FORGET TO SAVE")

#  jesusForData(DT.Spotify.Counts.by.date.product.mobile.country.user)

  notify(" D O N E " )
}