once $ "dr"

do
setcps (90/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
d1 $ g1
  $ midiOn "^42" (fast 2)
  $ midiOn "^41" (<| "k k k <k!3 [<k ~> k*<1 2>]>")
  $ midiOff "^41" (<| "k . k(<3 [5 3] 3 <5 [5!3 8]>>,8)")
  $ "[jazz,909]"
  # midiG' "^78" 0 2
d2
  $ fast "<2!6 [4 8] 8>"
  $ "~ snare:5"
  # midiG' "^79" 0 1.5
d3 $ g1
  $ midiOn "^76"  (fast "2 <2!3 <[2 4]>>")
  $ midiOn "^44"  (<| "~ h ~ h")
  $ chop 16
  $ loopAt 1
  $ "noir_beats:6"
  # speed (range 0 2 "^52")
  # midiG' "^80" 0 1.5
  # cut 1
d4  $ g2-- CHOIR BASS
  $ midiOff "^57" (mask "t(<4 <2 8>>,8)")
  $ slice 8 ("0 1 2 3 <4 ~> 5 <6!3 6?> <7 7 <7 3> 3>")
  $ "noir_choir:7"
  # lesliebus 41 "^33"
  # lrate 1
  # lsize (range 0.17 6.7 "^17")
  -- # lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
  -- # lpf 5000
  -- # lsizebus 42 (range 1.9 6.7 "^33")
  # cut 4
  # crushbus 42 (range 14 0.85 "^53")
  # midiG' "^81" 0 1.5
  # room 0.3
-- d4 $ -- Noir Bass!
d5 $ g2
  $ midiOn "^90" (chop 16 . mask "<t f!3>")
  $ "noir_angels:1"
  # legato 4
  # cut 5
  # crushbus 51 (range 14 2 "^54")
  # midiG' "^82" 0 1.8
  # cut 1
d6 $ g2
  $ loopAt 2
  $ slice 4 (run 8)
  $ "fguitar"
  # n "<12!32 13!16 12!16>"
  # crushbus 61 (range 14 2 "^55")
  # cut 6
  # midiG' "^83" 0 1


once $ "noir_warp:5"
  # gain 0.8
  # cut 5