do
let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])])
setcps (65/60/4)
let mFast = midiOn "^41" (fast 2)
d1 $ mFast
  $ midiOn "^42" ((<| "k k k <k [~ k]>"))
  $ midiOff "^42" (<| "k . k(<3!3 [<3 8> 5]>,8)" )
  $ "jazz"
  # midiG' "^78" 0 1.8
d2
  $ often (ply "1 . [2 <2!3 [2|4]>]")
  $ fast 8
  $ "~ jungle:8"
  # midiG' "^79" 0 1.8
d10 $ whenmod 32 16 (fast 2)
  $ whenmod 4 3 (mask "<t!15 f>" . off "e" (# pan 0.1))
  $ "~ h2ogmcp"
  # midiG' "^79" 0 1.8
d3 -- Broken break
  $ slice 4 "0*<<1 2> 1 1 2> <1 ~> <2 ~ ~ 2> 3*<1 1 2 <1 4>>"
  $ loopAt 1 $ "fbreak80:2"
  # midiG' "^80" 0 1.8
d4
  $ slice 16 ("0 0 0 <0 0 1 2>" + "<0!4 1!8 2!3 3>")
  $ loopAt 16
  $ "latin"
  # rel 1
  # cut 4
  # midiG' "^82" 0 2
  # room 0.42 # sz 0.8 # dry 1
d5 $ note (scale "latin" ("-2@3 <-2 -3 -4 -5> . -2 <0 0 1 <2 4>>") - 12)
  # "bassWarsaw"
  # crushbus 51 (range 16 2.5 "^53")
  # midiG' "^81" 0 2
d6
  $ note (scale "latin" (arp "up" "1*<1 1 2 1 2 1!3> ~ . <[1 3 2 3 <5 6 6 7>] [1 3 <5 6>]>")
  - 1) -- Adjuste jvbass-1
  # "jvbass:3"
  # midiG' "^82" 0 2


d7
  $ slow 4 $ "fmono:12"
  # cut 7 # gain 0.8