do
setcps (85/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
d1 $ gF
  $ superimpose ((# "kick:5") . (|* gain 0.8))
  $ midiOn "^42" (struct "t*<1!3 2> . t(3,8)")
  $ midiOff "^42" (struct "t t t <t t*2 t [~ t]>")
  $ "[jazz,808bd:2]"
  # midiG' "^78" 0 1.2
d2 $ gF
  $ midiOn "^43" (fast 2)
  $ "~ [cpu:2,cpu:3]"
  # midiG' "^79" 0 1.2
d3 $ gF
  -- $ someCyclesBy 2 (fast "1 2")
  -- $ struct "t([12 . <16!3 8> 16],16)"
  $ midiOn "^76" (ply 2)
  $ struct "t*4 t*8"
  $ "drum:2"
  # midiG' "^80" 0 2
d4 $ gF2 -- La base
  $ superimpose (
    (|+ note 24)
    . (fast 2)
    . (# cut 41)
    . (|* gain 1.2)
  )
  $ (# crushbus 41 (range 16 4 "^54"))
  $ midiOn "^58" (mask "t f <f!3 f> <f!8 [t f]!7 t>")
  $ chop 16
  $ loopAt 1
  $ "han" # n "<0!4 1!4>"
  # midiG' "^82" 0 2
  # cut 4
d6 $ gF2 -- La basse
  $ loopAt 2
  $ slice 8 (run 8)
  -- $ superimpose (# crushbus 41 (range 16 4 "^53"))
  -- $ struct "t . t t"
  -- $ slice 4 ("0 <0!4 2!4> 0(<1!4 5!4>,8) <0 2>")
  $ "han" # n "<0!4 1!4>"
  # cut 6
  # pan 0.3
  # room 0.4
  # midiG' "^81" 0 2
d8 $ gF
  $ loopAt 4
  $ midiOn "^60" (fast 4)
  $ sometimesBy ("^56*8") (shuffle 16)
  $ slice 8 (run 8)
  $ "drums_commodore" # n "0"
  # cut 8
  # midiG' "^84" 0 2
d9 $ gF2 -- La trompette
  $ midiOn "^59" (superimpose ((# cut 91) . (|+ note 12) . ( |* gain 0.9)))
  $ slice 4 ("<0!4 2!3 1>" + "0 0 0 <1!3 3>")
  $ "han/4" # n "3"
  # cut 9
  # midiG' "^83" 0 1.6
  # pan (0.8 + (slow 8 $ range 0 1 perlin))
d8 $ loopAt 2 $ "break:1" # cut 8
  # midiG' "^84" 0 2


once $ "dr*4"

once
  $ scale "aeolian" ("3 3 . 1")
  # "bassWarsaw"
  # cut 4
  # pan 0.1
  # gain 0.9


once $ "han:2"
  # gain 1
  # cut 3


 # gain 1.4
  # cut 4