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