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