srecord StereoSamplesIterator(short[] samples) extends VF1<double[]> {
  long counter = 0;
  
  public void get(double[] pair) {
    int sampleIndex = cast counter % l(samples);
    pair[0] = samples[sampleIndex];
    pair[1] = samples[sampleIndex+1];
    counter += 2;
  }
}

static StereoSamplesIterator stereoSamplesIterator_longCounter(short[] samples) {
  ret samples == null ? null : StereoSamplesIterator(samples);
}

Began life as a copy of #1016686