set.seed(123)
x<-unique(as.integer(runif(1000,1,27)))
x
letters
letters[x]


