double local fn QuadraticMean( array as CFArrayRef )
  long count = len(array)
  double sum = 0.0
  for long i = 0 to count - 1
    sum += dblval(array[i]) * dblval(array[i])
  next
end fn = sqr(sum/count)

void local fn DoIt
  CFMutableArrayRef array = fn MutableArrayNew
  for long i = 1 to 10
    MutableArrayAddObject( array, @(i) )
  next
  print @"RMS (1-10) = ";fn QuadraticMean(array)
end fn

fn DoIt

HandleEvents