do
setcps (100/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  $ midiOn "^42" (<| "k k k k*<1 2>" )
  $ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
  $ "[jazz]"
d2 $ gF1 $ gM1
  $ midiOff "^43" (<| "~ ~ ~ sn")
  $ midiOn "^43" (<| "~ s ~ s")
  $ "[snare:21]"
  # gain 0.7
d3 $ gF1 $ gM1 $ "dr*[8 8 8 <4 4 8 16>]"
  # "hh:7" # legato 0.25 # cut 3
  |* gain (range 0.95 1.1 (fast 2 perlin))
d4
  $ arp "up" $ note ("[e5 e5 <e5 f5 a5 c6>] <a4!7 a5>@3" + 3.6)
  # "jungle_bass:4"
  # begin 0.35
  # lpf 5000
  # cut 4
d5 $ gM3 $ gF3
  -- $ someCyclesBy "0.2" (mask "t(3,8)")
  -- $ arp "up"
  $ note ("<[<a@3 [a c4]> [gs <a!3 ds> gs]] e>"
  + "[0,12]"
  |+| "0 12 0 12*<1!3 2>"
  )
  # "marimba1"
  # gain 1.2
  # pan 0.6
  # room 0.8 # sz (slow 16 $ range 0.8 0.2 saw)
  # legato 0.5
  # octerbus 51 (range 0 0.8 "^54")
  -- # velocity 0.8
d8 $ gF3 $ gM1
  $ chop 16
  -- $ midiOn "60" (ply 2)
  $ loopAt 2
  $ "break:4"
  # pan 0.2
  # gain 0.8

a bf c ds e f gs