workfile u 1000
!series=200
!draws=100
smpl 1 !series
vector(!draws) tt=0
for !n=1 to !draws
series x=3+3*nrnd
tt(!n)=@mean(x)
next
smpl 1 100
mtos(tt,xx)
xx.histogram