options nodate ls=80 ps=60;
proc printto print="e:\print.txt" new;
quit;
data a;
do i=1 to 10;
x=ranuni(1);
output;
end;
run;
proc means;
var x;
run;
quit;