once $ "dr"

setcps (75/60/4)

do
let g = whenmod 32 0 (# djfbus 1 (slow 8 $ range 0.45 0.1 saw))
let prog = "<c f g c4>"
d1 $ g
  $ "808bd:5"
d2 $ g $ loopAt 2
  $ whenmod 4 3 (ply "1 2")
  $ "break"
  # gain 1
  # cut 1
d3 $ g $ "dr*8"
  # gain 0.9
d4 $ g $ note ("c'maj'4" + prog)
  # "FMRhodes1"
  # gain 0.9
d5 $ g
  $ whenmod 32 16 (
    superimpose (
      arp "updown"
      . (|+ note "c'min'4"))
      . (|* gain 0.85)
      . (# pan 0.6)
      )
  $ note (prog - 24)
  # "bassWarsaw"
  # pan 0.2
  # gain 1.2