for(i in(n=nchar(a<-readLines('stdin'))):1)cat(strsplit(a,'')[[1]][c(i:n,n:i)],'
',sep='')