data _null_;   array x[5] $3 ('ant' 'bee' 'cat' 'dog' 'ewe');   n=dim(x);   k=3;   ncomb=comb(n,k);   do j=1 to ncomb+1;      call allcomb(j, k, of x[*]);      put j 5. +3 x1-x3;   end;run;-1和-3 交换顺序，-2和-3交换顺序，然后怎么进行呢？谢谢~