static double rms_shortArray(short[] wav) {
  double d = 0;
  if (wav != null) for (short s : wav)
    d += ((double) s)*s;
  ret sqrt(d);
}