letter5<-"fgxyz"
set.seed(111)
x<-unique(as.integer(runif(1000,1,26)))
x2<-c(x[1:9],x[9:25])
newLetters<-letters[x2]

k=1
for(i in 1:5){
   for(j in 1:5) cat(toupper(substr(letter5,j,j)),"     ")
   cat("\n")
   
   cat(toupper(substr(letter5,i,i))," ")
   for(j in 1:26){
      if(j!=10){
         cat(LETTERS[j],"     ")
         k=k+1
      }
      if(k%%10==0) cap("\n")
   }
}






