do
-- resetCycles
setcps (160/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
  $ midiOn "^42" (<| "k  . ~ k ~ ~ ")
  $ "[bskick,jazz]"
  # gain 1.2
  # gain 1.4
d3 $ "dr*8"

once $ "FMRhodes1"
