do
setcps (128/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 
  $ midiOn "^42" (<| "k k k <k <k*2 [<~!3 k> k*<1 2>]>>")
  $ midiOff "^42" (<| "k . ~ k")
  $ "kick:5" 
  # gain 1.8
d2 $ gF1 $ gM1 
  $ "~ s ~ [s*<1 2> <~ s*<2 [4 2]>>]"
  # "vec1_snare" # gain 1.4
d3 $ gF1 $ gM1 
  $ midiOn "^44" (sometimes rev . stut 3 0.8 "s")
  $ "~ h ~ h ~ h ~ h" 
  # "ho:2" # gain 1.1 # cut 3
d4 $ gF2 $ gM3 -- LA ACID BASS DOUBLE AMOUR
  $ midiOn "^57" (superimpose (
    (0.25 ~>) . (|+ note "[7 12 7 <7 12>]")
    . (# pan 0.7)
    . (# squizbus 41 (range 0 4 "^53"))
    . (|* gain 1.3)
    ))
  $ note (
    "fs [fs a] <a [fs a]> fs fs <a!3 e>" 
    + "c4"
    )
  # "vec1_acid:0" |+ note 3 # legato 0.7
  # room 0.3
  -- # cut 4
  # octersubbus 42 (range 0 2.5 "^33")
  -- |+ note 3
d9 $ gF3 $ gM3 
  $ sometimesBy "^18*4" (ply 4)
  $ note "<fs a b cs>/2" # "moog" # n "<0!8 1!8>"
  # room 0.3
  # gain 1.4
  # crushbus 91 (range 16 2.5 "^19")
  # cut 9
  
