{r=$2 for(i=n=$1;i;)$i=1+n-i-- for(;i<split($0,c);)for(j=d=n-i++;j--;)$(i+(r+j)%d)=c[i+j]}1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page