music-preludes-1.7.2: examples/test2.scm

; Usage:
;   runhaskell examples/scheme.hs examples/test2.scm
(let (
  (cell1 (compress 16 (scat c cs e)))
  (cell2 (compress 16 (scat fs f e)))
  )

  ; TODO variadic
  (define (seq i x y) (scat x (up i y)))

  (seq m3 (scat cell1 cell2) (scat cell2 cell1)))