factored Wave.hs
new pitch quantization
wave shower