do
resetCycles
let prog = "<a g f e f e <c d> <d e>>"
let mIntro = (mask "<f!4 t!28>")
let modIndex = pF "modIndex"
let gPreBridge = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.05 saw)))
let gBridge = (someCyclesBy "<0!32 1!8 0!24>" (# djfbus 1 (slow 8 $ range 0.5 0.98 saw)))
let g = (gPreBridge . gBridge)
setcps (110/60/4)
d1 $ g
  $ mask "<f!8 t!20>"
  $ someCyclesBy "<0!32 1!16 0!16>" (mask "t(<1!4 2!12>,4)") -- Pont
  $ struct "t t t [<t!3 ~> <~!4 t!4>]"
  $ "jazz" # gain 1.1
d2 $ g $ mIntro $ fast 2 $ "~ snare:22" # gain 1.2
d3 $ g $ mIntro $ "~ d ~ d ~ d*<1 2> ~ d*<1!7 2>" # "drum:2" # gain 1.4
d4 $ g
  $ slice 4 ("0 <1!2 ~ 1*2> <2 <~ 2>> 3*<1!3 4>")
  $ loopAt 1 $ "break:1"
  # gain 0.83
  # pan 0.2
d5
  $ "faith/8"
  # n (slow 32 $ "<0 1>")
  # gain 1.1
  # pan 0.8
  # cut 5
  -- # crushbus 51 (slow 16 $ range 10 8.5 (saw + (2.5 * (fast 4 $ perlin))))
d6
  $ struct "<t!4 t*2!4 [t t(<3!3 5>,8)]!8>"
  $ note (prog - 24)
  # "bassWarsaw"
  # pan 0.2
  # gain (slow 32 $ range 0.5 1.3 saw)
d7 $ g $ arp "up"
  $ off "<e!3 <s h>>" id
  $ note (prog + "<c'maj'4!7 c'maj'8>" - 12)
  # "FMRhodes1"
  # pan 0.9
  # modIndex (slow 32 $ range 0 4 saw)
  # gain (slow 32 $ range 0.8 1.1 saw) |* "<0.8 1!3> 1!7"
  # room (slow 16 $ range 0.4 0.8 saw)
d8 $ g
  $ struct "~ t ~ t ~ t ~ [<t!7 ~> <~ t>]"
  $ "ho:1"
  # room (slow 32 $ range 0.4 0.7 saw)
  # dry (slow 32 $ range 0.4 1.7 saw)
  # sz 0.9
  # pan  (slow 16 $ range 0.75 0.05 saw)
  # gain (slow 8 $  range 0.68  0.55 saw)