lotto <- function(names, output) {
  lottos <- matrix(nrow = length(names), ncol = output + 1)
  lottos[,1] <- t(sample(names, length(names)))
  options <- matrix(unlist(combn(names, output)), ncol = 3, byrow = T)
  times <- sample(1:nrow(options), length(names))
  lottos[,-1] <- options[times,]
  return(lottos)
}
 
challenge <- "Rebbeca Gann;Latosha Caraveo;Jim Bench;Carmelina Biles;Oda Wilhite;Arletha Eason ;Theresa Kaczorowski;Jane Cover;Melissa Wise;Jaime Plascencia;Sacha Pontes;Tarah Mccubbin;Pei Rall;Dixie Rosenblatt;Rosana Tavera;Ethyl Kingsley;Lesia Westray;Vina Goodpasture;Drema Radke;Grace Merritt;Lashay Mendenhall;Magali Samms;Tiffaney Thiry;Rikki Buckelew;Iris Tait;Janette Huskins;Donovan Tabor;Jeremy Montilla;Sena Sapien;Jennell Stiefel"
input <- read.table(textConnection(challenge), sep = ";", colClasses = "character")
 
output <- lotto(input, 15)
output <- cbind(output[,1], rep(">", nrow(output)), output[,-1])
 
apply(output, 1, cat, "\n")

bG90dG8gPC0gZnVuY3Rpb24obmFtZXMsIG91dHB1dCkgewogIGxvdHRvcyA8LSBtYXRyaXgobnJvdyA9IGxlbmd0aChuYW1lcyksIG5jb2wgPSBvdXRwdXQgKyAxKQogIGxvdHRvc1ssMV0gPC0gdChzYW1wbGUobmFtZXMsIGxlbmd0aChuYW1lcykpKQogIG9wdGlvbnMgPC0gbWF0cml4KHVubGlzdChjb21ibihuYW1lcywgb3V0cHV0KSksIG5jb2wgPSAzLCBieXJvdyA9IFQpCiAgdGltZXMgPC0gc2FtcGxlKDE6bnJvdyhvcHRpb25zKSwgbGVuZ3RoKG5hbWVzKSkKICBsb3R0b3NbLC0xXSA8LSBvcHRpb25zW3RpbWVzLF0KICByZXR1cm4obG90dG9zKQp9CgpjaGFsbGVuZ2UgPC0gIlJlYmJlY2EgR2FubjtMYXRvc2hhIENhcmF2ZW87SmltIEJlbmNoO0Nhcm1lbGluYSBCaWxlcztPZGEgV2lsaGl0ZTtBcmxldGhhIEVhc29uIDtUaGVyZXNhIEthY3pvcm93c2tpO0phbmUgQ292ZXI7TWVsaXNzYSBXaXNlO0phaW1lIFBsYXNjZW5jaWE7U2FjaGEgUG9udGVzO1RhcmFoIE1jY3ViYmluO1BlaSBSYWxsO0RpeGllIFJvc2VuYmxhdHQ7Um9zYW5hIFRhdmVyYTtFdGh5bCBLaW5nc2xleTtMZXNpYSBXZXN0cmF5O1ZpbmEgR29vZHBhc3R1cmU7RHJlbWEgUmFka2U7R3JhY2UgTWVycml0dDtMYXNoYXkgTWVuZGVuaGFsbDtNYWdhbGkgU2FtbXM7VGlmZmFuZXkgVGhpcnk7Umlra2kgQnVja2VsZXc7SXJpcyBUYWl0O0phbmV0dGUgSHVza2lucztEb25vdmFuIFRhYm9yO0plcmVteSBNb250aWxsYTtTZW5hIFNhcGllbjtKZW5uZWxsIFN0aWVmZWwiCmlucHV0IDwtIHJlYWQudGFibGUodGV4dENvbm5lY3Rpb24oY2hhbGxlbmdlKSwgc2VwID0gIjsiLCBjb2xDbGFzc2VzID0gImNoYXJhY3RlciIpCgpvdXRwdXQgPC0gbG90dG8oaW5wdXQsIDE1KQpvdXRwdXQgPC0gY2JpbmQob3V0cHV0WywxXSwgcmVwKCI+IiwgbnJvdyhvdXRwdXQpKSwgb3V0cHV0WywtMV0pCgphcHBseShvdXRwdXQsIDEsIGNhdCwgIlxuIik=