/* Random Order */
new; cls;
print rndorder(10);



proc rndorder(k);
   retp(rankindx(rndu(k,1),1));
endp;