do
setcps (80/60/4)
let modIndex = pF "modIndex"
let g = (someCyclesBy "<f!32 t!16 f!32>" (# djfbus 1 (slow 16 $ range 0.5 0.9 saw)))
d1 $ g $ "k k k <k!3 [<~ k> k]>"
  # "jazz" # gain 0.9
d2
  $ off "h" ((|* gain 0.8)
    . (# cut 11)
    . (|+ hpf 1500)
    . (# pan 0.8)
    )
  $ slice 4 (
    -- "<0!2 0*2 0 1!3 0 0 1 0*2 0 1!3 0 2!4 3(3,8)!4>" -- HARD SYNC
    "<0!2 0*2 0 1!3 0>"
  )
  $ loopAt 4
  $ "noir_radio"
  # cut 1
  # room 0.5
  # sz 0.5
  # gain 0.6
d3 $ g
  $ off "<e!3 s>"
  ((ply "<1 <2 4>>")
  . (|* gain 0.9)
  . (# pan 0.6)
  )
  $ "g*4" # "gretsch:4"
  # pan 0.4
  # gain 0.8
d4 $ g
  $ slow 2
  $ note "<[gs@14 gs a] [f@15 g]>"
  # octave 3
  # "bassWarsaw"
  # cut 4
  # pan 0.7
  # gain 0.7
d5 -- INCOMING BEAT
  $ slice 4 ("0 1 <2 <0 [0 2]>> 3*<1!3 4>")
  $ loopAt 2
  $ "noir_beats:3"
  # cut 5
  # room 0.4
  # gain (slow 32 $ range 0.25 "<0.65!32 0.85!32>" saw)
  # pan (slow 32 $ range 0.89 0.6 (saw + 0.25 * perlin))
d6
  $ superimpose (
    ply "<1!3 <2 [2 4]>>"
    . struct "t(<3 <5 8>>,8)"
    .  arp "up"
    . (|+ note "[c'maj'4]")
    . (# modIndex (slow 32 $ range 1 50 saw))
    . ply 2)
  $ note "<gs4!2 f4!2>"
  # "FMRhodes1"
  # modIndex 0
  # gain 0.9

once
  $ note (arp "downup" "g'min'4" -12)
  # "superpiano"
  # velocity 0.6
  # gain 1.7

do
d1 $ "808bd:4"
d2 $ "drum:2*4"