do
setcps (120/60/4)
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g1 = (gDJF1)
let g2 = (gDJF2)
d1 $ g1
  $ midiOn "^42"  (<| "k . k(<<3 1> 1 3 5>,8)")
  $ midiOff "^42" (<| "k")
  $ "[jazz,909]"
  # midiG' "^78" 0 1.2
d2 $ g2 $ "~ snare:42"
  # midiG' "^79" 0 1.2
d4 $ g1
  $ midiOn "^44" (iter "1 4")
  $ midiOn "^76" (ply 2)
  $ slice 16 (run "8 <8!3 <[4 8] 4>>")
  -- $ midiOn "^44" (loopAt 4)
  $ loopAt 2
  $ "break:1"
  # cut 4
  # midiG' "^80" 0 1
  # octerbus       40 (range 0 1.2 "^52")
  # octersubbus    41 (range 0 5 "^32")
  # octersubsubbus 42 (range 0 5 "^16")
d5
  $ g2
  $ superimpose ( -- étoiles juxées
    (|+ note 12)
    . juxBy 0.8 (0.5 ~>)
    . striate 8
    -- . (|* gain 0.8)
  )
  $ stut 4 0.5 1
  $ slow 4 $ "tristram"
  # n "<0 1>"
  # room 0.84 # sz 0.8 # dry 1
  # midiG' "^82" 0 1
d6 $ g2
  $ slice 4 "0 <1 ~> <2 [1 2]> [<3 ~> 3]"
  $ note (arp "up" ((slow 4 "<a3 af3>") + "c'min'4"))
  # "supersaw"
  # lpf 3000
  # voice 0.1
  # midiG' "^81" 0 1
  # crushbus 61 (range 16 3.2 "^53")
  # room 0.4

  -- La pub c'est le mitard
  -- Et le prof me voyait
  -- La cerise en retard