once $ "scratch_long:4"
  # gain 01.1
  # cut 4


d1 $ "808bd:2"

do
setcps (80/60/4)
let gDJF1 = (# djfbus 1 (range 0.10 0.80 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let g1 = (gDJF1)
let g2 = (gDJF2)
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
d1 $ g1
  $ fix (# cut 12) "wobble"
  $ fix (# cut 11) "808bd"
  $ "k ~ ~ k . ~ ~ k <~!4 ~ ~ k k*2>"
  # "[808bd:1,wobble]"
  # midiG' "^78" 0 1.4
d2 $ g1
  $ fix (|- note 12) "sn"
  $ "~ [s ~ ~ s] . [~ s] ~ s <~ s*<1!3 2>>"
  -- # "[amencutup:8,sn:4]"
  # "[snare:30]" # note "-4"
  # midiG' "^79" 0 1.1
  # room 0.8
  # sz 0.8
  # dry 0.98
d3
  $ g1
  $ ply "<1 1 <1 2> [4 <2!3 4>]>"
  $ fast "<1!8 2!24>"
  $ "s*6"
  # "amencutup:4"
  # gain 0.8
  # pan 0.7
  # midiG' "^80" 0 1
d4 $ g2 -- Broken Saloon
  -- $ superimpose (
    -- (|- pan 0.2)
    -- . (|+ note 12)
    -- . (# cut 51)
  -- )
  $ midiOn "^58" (iter 16)
  $ sometimesBy "^54" (striate 4 . ply "1 <1 <2 [2 4]>>")
  $ slice 8 (run "<4!2 2 <8 [8 4] [4 8] 4>>" + (slow 8 "<0 4>"))
  $ loopAt 2
  $ "fpiano:8"
  # cut 5
  # pan 0.65
  # midiG' "^82" 0 0.9
d5 -- Desert bird angel
  $ g2
  -- $ mask "<f!32 t!32>" -- Economise
  $ slice 2 ("<0 1 0 [0 0 1] 1 [1 1] [2*4] [1 3]>")
  $ loopAt 1
  $ "fmono:8"
  # room 0.3
  # pan 0.7
  # sz "<0.3 0.5!2 <0.9 1.4>>"
  # cut 6
  # midiG' "^83" 0 0.9
-- d6 -- TODO: FIX SOME BASS <3
  -- $ slice 8 "0 1 0 0"
  -- $ "fbass:8"
  -- # gain 1.3
  -- # pan 0.3
  -- # cut 6