function scriptksstat
KS=[];
 for i=1:1000
x=sort(exprnd(10,1,10));
l=1/mean(x);
F=1-exp(-l*x);
D=max(abs(F-(0:.1:.9)),abs(F-(.1:.1:1)));
KS=[KS D];
end
mean(KS>=.18)