dstat x;r;max;min;mean;var;sd;md;med;mode;v;m;n
n{Rx
r{(max{x[n])-min{(x{x[|Hx])[1]
sd{(var{(+/(|x-nRmean{(+/x)%n)*2)%n-1)*0.5
md{(+/|x-nRmean)%n
med{0.5X+/x[(Sn%2),1+Dn%2]
} nomoXI(n>Rmode{((Rv)R(Im)$1)/v{x[(v=m{S/v{+/xJ.=x)/In])
mode{I0
nomo:'sample size            ';n
'maximum		';max
'minimum		';min
'range			';r
'mean			';mean
'variance		';var
'standard deviation	';sd
'mean deviation         ';md
'median			';med
'mode			';mode