do
-- resetCycles
setcps (120/60/4)
let gDJF = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.05 0.45 saw))
let g = gDJF
-- d10 $ mask "<t!32 t(2,8)!8 t!24>" $ "dr*8" # gain 0.4 -- Guideline
d1 $ g
  $ mask "<t!128 [t f] f!127>" -- Outro
  $ mask "<f!8 t!24 f!16 t!16 t!32>"
  $ whenmod 32 16 (<| "k . k(<3!3 <5 [5 3]>>,8)")
  $ fix (|* 0.68) ("jazz")
  $ "k . ~ k <~ k> <~!3 k>"
  # "[808bd:2,jazz]"
  # lpf 200
  # gain 1.35
d2 -- Snare classique
  $ mask "<t!128 [t f t f] f!127>" -- Outro
  $ g
  $ mask "<f!7 t!25 f!8 t!24>"
  $ fast 2
  $ ply "<1!3 2>"
  $ "~ <sn:2!3 <sn:4!3 [sn:4 sn:2]>>"
  # note "-2"
  # room 0.8 # dry 1 # sz 0.87
  # gain 0.7
d3 -- Drumroll analogique
  $ g
  $ mask "<t!128 t(12,16) t(4,16)!127>" -- Outro
  $ mask "<t(<2 4 4 7>,8)!4 t!60>"
  $ whenmod 8 6 (ply "<1 [2 <[1 2] [2 4]>]> <0.5 [4 0.5]>")
  $ "dr*<8 <8 [8 4]> 16 [8 . 4 16]>"
  # "h2ogmsn" # n "<[14 13 13 12]!6 11 10>"
  # gain 0.5
  # room 0.4
  # pan (slow 2 $ range "<0.6!3 0.4>" "<0.4!3 0.6>" isaw)
  # sz 0.012
  # dry 0.97
d4 -- Lead Guitar: Signor Loop
  $ mask "<f!3 t t!60>"
  -- V1: LoopAll
  -- $ someCyclesBy "<f!16 t!16>" (slice 16 (slow 2 $ "<8 9 9 8 8 10 11 [12 13]>"))
  -- $ someCyclesBy "<t!16 f!16>" (slice 16 (slow 2 $ "<5 1 5 1 5 2 2 3 5 1 5 6 5 6 6 7>"))
  -- V2: Storytold
  $ someCyclesBy "<f!32 f!16 t!16>" (slice 16 "<8 8 10 8 10 10 8 <10 12>> <9 9 3 9 11 12 13 13>")
  $ someCyclesBy "<f!32 t!16 f!16>" (slice 16 "<5 6 5 7> <7 8 6 8*2>")
  $ someCyclesBy "<t!32 f!32>" (slice 16 "<5 <5!3 [5 6]> <5!3 7> <1 3 1 8>>")
  -- 0/16:Toi
  -- 1/16:Viens, Je Reviens
  -- 2/16:pour toi
  -- 3/16:oui toi, que toi
  -- 4/16:Pause
  -- 5/16:Bonjour
  -- 6/16: Et c'est bien toi que je
  -- 7/16 veux...
  -- 8/16: Oui c'est toi
  -- 9/16: toi, toi, toi
  -- 10/16: Bien toi
  -- 11/16: Je te vois t'en aller
  -- 12/16: Va...
  -- 13/16: Il y en aura d'autres
  -- 14/16:Pause
  $ "latin"
  # cut 4
  # room 0.84
  # dry 1.12
  # pan 0.35
  # sz 0.9
  # lpqbus 41 (slow 4 $ range 0 0.5 sine)
  # lpfbus 42 (range 500 5000 (slow 8 $ sine + 0.25 * perlin))
  # gain 0.8
d5
  $ g -- Support guitar
  $ whenmod 4 3 (ply "<1 2>" . (# begin 0.56) . (# end 0.58))
  $ "latin"
  # begin 0
  # end 0.044
  # cut 5
  # room 0.4
  # dry 1
  # sz 0.6
  # pan 0.8
  # gain 0.8
d6 $ g -- Core BREAK
  $ mask "<f!32 t!32>"
  $ slice 4 ("0 <1 ~> <2 0> <3 <~ 3>>")
  $ loopAt 1
  $ "breaks125:0"
  # gain (slow 16 $ range 0.45 0.8 saw)
  # pan 0.4
d9 $ g -- Support break
  $ mask "<f!16 t!16>"
  $ slice 32 "0*<1!7 2> 1*<1!7 2> 2*<1 1 2 <1 2>> 3*<1 2>"
  $ loopAt 2
  $ "break:29"
  # cut 7
  # gain (0.65 + (slow 32 $ range 0 0.1 saw))
  # pan 0.23
  # room 0.2 # dry 1 # sz 0.2