#input area
letter6<-"bcgxyz"
all36<-letters
for(i in 27:36){
   k<-i-27
   all36[i]<-toString(k)
}
#
set.seed(1267)
x<-unique(as.integer(runif(1000,1,37)))
all36[x]
 [1] "8" "v" "o" "p" "z" "6"
 [7] "9" "h" "n" "t" "s" "q"
[13] "r" "2" "f" "j" "3" "a"
[19] "x" "0" "y" "g" "u" "k"
[25] "w" "b" "c" "l" "4" "d"
[31] "5" "7" "m" "i" "1" "e"





