do
setcps (120/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
d1 $ gM $ gF1 $ mask "<t f!3 t!28>"
  $ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>")
  $ fix (|* gain 0.8) "kick"
  $ "[jazz,808bd:4,kick:4]"
  # midiG' "^78" 0 1.2
d2 $ gM $ gF1 $ "~ ~ cp ~" # "snare:40"
  # midiG' "^79" 0 1.2
d3 $ gM $ gF1 $ "drum:2*<[8 4] 8 8 [8 16]>" -- [8 8 8 8] 32
  # midiG' "^80" 0 1.4
-- d4 $ note (slow 5 $ "b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2")
--   # "superpiano"
--   # gain 0.8
d4 $ slow 4
  $ contrast
  (gF2 . (# midiG' "^81" 0 2) . (# crush 16)) -- Graves
  (gF3 . (# midiG' "^82" 0 1.4) . (midiOn "^58" rev) . (# pan 0.8) . (fix (|+| note (arp "<up <up down> down>" "<c'maj'2!3 c'maj'4>")) "FMRhodes1")
  . (# sustain "e e e e e e q") . (|+ note 12) . (# "[FMRhodes1,FMRhodes2]"))  -- Aigus
  (note (scale "aeolian" "[0,1,2,3,4,5,6,7]" - 28))
  -- $ fix (# pan 0.8) (note (scale "aeolian" "[0,1,2,3,4,5,6,7]" + 7 - 28))
  $ note (scale "aeolian" (
  "{[[0 <~!8 1!8> 2 <~!8 3!4 ~ ~ 3> 4 <~ 5> 6 <~!3 5>]*4],[8 9 10 9 8 9 10        8 9 10 9 8 10 11     8 9 10 9 8 11 12    <8 10> 9 10 9 8 13 14     14 13 12 11]}"
  ) - 28)
  # "bassWarsaw"
  # pan 0.2
  # crushbus 41 (range 16 2.5 "^53")
d8 $ gM $ gF1
  $ midiOn "^92" (ply "2")
  $ midiOn "^60" (ply "1 2 . <2!3 4>")
  $ chop 16
  $ loopAt 2
  $ "jungle_breaks:6"
  # midiG' "^84" 0 1.4


d1 $ "d@6 d@4 d@4 d@2"
  # note "c3 ef3 g3" # "superpiano"

7 7 7 7 4
32