;; sndsamples-test.sal -- demonstrate bug and fix for 
;;    snd-samples, which was broken on Windows due to 32-bit longs

set mysnd = osc(c5, 0.1)

print snd-length(mysnd, ny:all)

set mysamps = snd-samples(mysnd, ny:all)

loop
  for i from 0 below 10
  print i, mysamps[i]
end

