;; simple stereo weights (from mono)
(bind-func static mix2_c
  (lambda ()
    (let ((out 0.0))
      (lambda (chan:i64 x:SAMPLE left right)
        (cond ((= chan 0) (set! out x) (* out left))
              ((= chan 1) (* out right))
              (else 0.0))))))