{for(n=i=length;i;)print substr($0$0,1+i--,n)}