once $ "hh" # gain 1.2

do
setcps (70/60/4)
let djfsine = (# djfbus 1 (slow 32 $ range 0.35 0.65 sine))
d1 $ djfsine $ "k*2 ~!6" # "jazz" # gain 0.8
d2 $ "~ s ~ [s*<1!3 2> ~]" # "[snare:20,clap]" # gain 0.6
d3 $ "h*12" # "hh" # gain 1.1
d4 $ note ("0*[16 <16 2>]"
    + (fast 2 "<[g,bf] [f,a]>")
  )
  # legato "q!7 <q 0.9> . <q 1>"
  # octave 4
  # "FMRhodes2" # gain 1.2
d5
  $ someCyclesBy "<1!8 0!8 0!16>" (>| note ("<[d3@3 g3@13]!3 [d3 f3 d3 g3@13]>") )
  $ someCyclesBy "<0!0 1!8 0!16>" (>| note ("[d3 <d3 bf3 d3!2> f3 g3@13]") )
  $ someCyclesBy "<0!16 1!16>" (>| note ("[d3 d3 f3 g3@7 d4@2 <c4 <f4 g4>>@4]"))
  $ note ("<[d3@3 g3@13]!3 [d3 f3 d3 g3@13]>")
  # "bassWarsaw" # gain 1.2
  # room 0.2
d6
  $ djfsine
  $ whenmod 64 32 (slice 4 "<0 1>*4")
  $ loopAt 2
  $ chop 16
  $ slice 4 (run "4 <4!3 8 4 4 8 8>")
  $ "break:0"
  # cut 6
  # gain 1
  # pan 0.7