&&&&&   This was scratch work --- what to do with it  ? 


offending_words <- c("qtip", "beiber", "poinconneur", "tumblr", "maxsta", "wrabel", "tapout", "bizzl", "cbo", "hoskyn", "pinmonkey", "loveabl", "nharmoni", "schoolboy", "generiqu", "price", "menorca", "hoodi")

for (word in offending_words) {
  catheader(word)
  pat <- substr(word, 1, nchar(word)-1)
  print(DT.m_for_letters[grepl(pat, release_name, ignore.case=TRUE), list(label_sc_group, label_owner, labelid, imprint, artist_name, release_name)])
}