do
setcps (100/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "<t f> . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF2
  $ midiOn  "^42" (<| "k*4")
  -- $ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!3 1>)")
  -- $ midiOff "^42" ((off "") . ("k k k k"))
  $ "[kick:5,kick:8]"
  # delaybus 11 (range 0 0.4 "^30")
  # delay "e"
  # delayfb 0
  # midiG' "^78" 0 1.3
d2 $ gF2 $ "~ [snare:10,cp]" # hpf 500
  # midiG' "^79" 0 1.3
d3 $ gF2 $ gMute
  $ note (stack [
    "g2(<5 7>,16)", "d3(5, 12)"
    ])
  # "bassWarsaw"
  # attack ( slow 2.5 $ range 0.005 0.2 saw)
  # rel (slow (2/3) $ range 0.2 0.8 sine)
  # midiG' "^81" 0 1.5
  # cut 3
  # octer 1
d5 $ gF2
  $ note (fast (4/3) $ "g4(<4 [4 8]>,8, 1)" + "<0 [0 0 7] 0 [0 12]>")
  # "cpluck:2"
  # legato 2
  # crushbus 51 (range 16 2.5 "^54")
  # cut 5
  # room 0.9
  # dry 1
  # midiG' "^82" 0 1.5
-- d6 $ n "" # "amencutup" #
-- # midiG' "^82" 0 1.5

d6 $ gF $ gM -- Break rayon laser =------------>
  $ midiOn "^91" (ply 8)
  $ midiOn "^59" (ply "1 <1!3 2>")
  $ midiOff "^59" (slow 4)
  $ slice 8 (run "<8!7 16>")
  $ "[~ break:4]"
  # cut 6
  # speed (range 0 2 "^55")
  # midiG' "^83" 0 1.5

once $ ""