x=readLines("stdin") for(i in 1:9)x=gsub(i-1,substr("oizehs lb",i,i),x) for(s in x){n=nchar(s);cat(substring(s,n:1,n:1),"\n",sep="")}