do
resetCycles
setcps (60/60/4)
let mel = "<e3 [g3 <a3 f3>] e3 b3>"
let prog = "<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>"
d1 -- BEAT + Snares
  $ fix (
    whenmod 4 3 (ply "2 4")
    . fast "<1!4 2!10 4 [4 8]>"
    . (# n "[3,11]")
    . (# gain 0.75)
    ) ("snare")
  $ "jazz(<1!3 <3 5>>,8) snare" # gain 0.7
d2 -- BREAK
  $ whenmod 32 16 (# djf (slow 32 (cosine + 0.5)))
  $ slice 8 (
    fast "<8 [8 16] 8 [16 <8 4>]>"
    -- "<0!4 [0 1]!4 <0 1 2 3 4 5 6 7>!4>"
    "<0 2 0 7 5 5 0 7>"
    )
  $ loopAt 2
  $ "break:3"
  # gain 0.65
  # cut 2
d6 -- Nappes Rhodes
  $ note prog
  # "FMRhodes1"
  # pan 0.2
  # gain 0.9
d7 -- Hello PWM
  $ note (mel - 12)
  # "superpwm"
  # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
  # accelerate "<0!7 <6 12>>"
  # rate "<1!5 2 4 <1 4>>"
  # resonance (slow 32 $ range 0.2 0.6 sine)
  # gain (slow 128 $ range 0.5 0.65 saw)