1input""m,n:if m for i=1to m a$=a$+chr$(i)next:for i=1to m:b=mod(n-1,len(a$)):a$=mid$(a$,b+1)+left$(a$,b):?asc(a$);:a$=mid$(a$,2)next:?:goto 1