(L:=(S:=stdin nextLine)size)to:1by:-1 do:[:i|i to: L do:[:j|(S copyFrom: i to: j)displayNl]]!