cat(diag(t(data.frame(strsplit(scan("stdin",""),"")))),sep="")