x=scan("stdin","") y=seq(x) cat(substr(x,y,y),sep="")