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