mysound$="us"
select Sound 'mysound$'
To Spectrum... yes
Cepstral smoothing... 500
Rename... 'mysound$'_smooth
select Spectrum 'mysound$'
cog = Get centre of gravity... 2
std = Get standard deviation... 2
kurtosis = Get kurtosis... 2
skew = Get skewness... 2
printline 'mysound$''tab$''cog''tab$''std''tab$''kurtosis''tab$''skew'