capture program drop covamu1
program define covamu1
  version 8.0
  syntax varlist [if] [in] [, title(string)]
  display
  if "`title'"!="" {
           display "`title':"
 }
  foreach var of local varlist {
    quietly summarize `var' `if' `in'
    local v1 = r(sd)/r(mean)  /* coefficient of variation */
    display "Coefficient of variation for `var' = " `v1'

  }
end