map(month.name, ~{

  data = tibble(period = paste0(.x,' 2019')
         ,cust = paste0(sample(letters,size=1000,replace = T),sample(1:100000,size = 1000,replace = T))
       ,transactions = rlnorm(n = 1000,meanlog = 8)) %>%
    readr::write_csv(paste0('data/',.x,'.csv'))

})