p:?princ;r:rest;w:"";while(m:?read(?-,?-,~))#~do(n:?read(),a:makelist(i,i,1,m),sum((a:append(r(a,c:mod(n-1,b:length(a))),r(a,c-b)),p(w),p(a[1]),a:r(a),w:" "),i,1,m),w:" ");
Note that non-ascii characters in the above source code will be escaped (such as \x9f).