## EXAMPLE
## Given a set of playlists (ie, from retail marketing)
## Put them in a vector and call 
##     process_list_of_playlists(playlists)

## OLD SCRATCH WORK
if (FALSE) {
  playlists <- c("spotify:user:sanik007:playlist:5KbTzqKBqxQRD8OBtJTZrS","spotify:user:sanik007:playlist:7ABD15iASBIpPP5uJ5awvq", "spotify:user:johavoc:playlist:2q6Wfn9d6OzzvTh6xLYd8b")
  ll.ret <- lapply(playlists, get_playlist_data)


  playlists.cat <- c(
    "spotify:user:theorchardus:playlist:2eNCXsNd8DJwP47HM6knsK"
  , "spotify:user:theorchardscandinavia:playlist:5ypxEWaGDxdTCghMVC1xjm"
  , "spotify:user:theorchardus:playlist:0cHPK3FkDKQAozmcldTYQK"
  , "spotify:user:114125244:playlist:6GsmUPGe7kK5KyhAOLGLBf"
  )


  DT.cat <- process_list_of_playlists(playlists.cat, token=token)

  sapply(ll.cat, names)
  mapply(function(ll, p) all(ll$playlist.uri == p), ll.cat, playlists.cat)
}