do
let dGlob = (# djf 0.7)
let dGlob = (id)
setcps (120/4/60)
d1
  $ dGlob
  $ whenmod 8 7 (>| "k*4")
  $ mask "<t!7 f>"
  $ "k . ~ k ~ ~"
  # "[jazz,techno]"
  # gain 1
d2
  $ dGlob
  $ mask "<f!4 t!12>"
  $ "~ s ~ <s!7 s*2>"
  # "sn"
  # note ("<-12!3 -6>")
  # lpf 5000
  # n "[2,10]"
  # gain 0.9
d3
  $ dGlob
  $ (|> "hc:1!3 ho:2")
  $ fast "<12 [16 8] 16 [8 16]> <4 <12 8> 4>"
  $ "hc"
  # pan 0.65
  # gain ("<0.75!8 0.9!8 0.8!4 0.55!4>" * 0.85)
d4
  $ dGlob
  $ mask "<t f t!2 f!4 t!8> <f!3 t t!3 f t!16>"
  $ slice 8 "0 1*<1 <2 <1 4>>> 2(3,8) <3!3 7>"
  $ "fbass:38"
  # cut 4
  # gain 1
  # pan 0.4
d5
  $ dGlob
  $ slice 4 ("<0 1 0 2 0 1 2 3>*2")
  $ "fguitar" # n "<38!8 39!4>"
  # cut 4
  # gain (slow 8 $ "<0 0.25 0.5 0.75>")


once $ "fepiano:5" # cut 21
# gain 1.1