do
setcps (93/60/4)
let rootD  = "[d3'maj'3]"
let rootA  = "[a3,cs4,e4]"
let rootE  = "[e3,gs3,b3]"
let rootFm = "[e3,gs3,b3]"
let verse = [rootD, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootFm]
let preChorus = [rootA, rootD]
let chorus = [rootD, rootFm, rootD, rootFm, rootD, rootD, rootD, rootD]
let song = [rootD, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootD, rootD, rootFm, rootD, rootFm, rootD, rootD, rootD, rootD, rootD, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootFm, rootA, rootD, rootD, rootFm, rootD, rootFm, rootD, rootD, rootD, rootD]
let verseOff = [rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD]
let preChorusOff = [rootE, rootE]
let chorusOff = [rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE]
let songOff = [rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootD, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE, rootE]
d1 $ gF1 $ gM1
  $ midiOn "^42" (<| "k k k <k k*2 k <~ [~ k]>>")
  $ midiOff "^42" (<| "k . ~ <~ k*<1 2 2 4>>")
  $ "[clubkick:2,jazz,808bd:4]"
d2 $ gF1 $ gM2
  $ midiOn "^43" (<| "~ cp")
  $ midiOff "^43" (<| "~ cp")
  $ "clap:2"
  # hpf 5000
d3 $ gF1 $ gM2
  $ sometimesBy "0 . 0.1 <0.25 0.5 0.7 0.9>" (ply 2)
  $ "hh*8" |* gain (range 0.6 0.9 perlin)
d4 $ gF2 $ gM3 -- BASSLINE COMPAGNONNE
  $ struct "t(<2 [1|3|3|5]>,8) t(<3!3 5>,8,<0!3 1>)"
  $ note (arp "<up!8 down!6 down <down downup updown up>>" $ cat song) -- Intro
  # "bassWarsaw"
  # octerbus 41 (range 0 1.5 "^53")
  # room 0.2
d5 $ gF2 $ gM3
  $ note (cat song) -- Main song
  # "FMRhodes1"
  # pan 0.3
d7 $ gF2 $ gM3
  $ struct "t(1,2,1)" -- TODO Better structure
  $ note (cat songOff + 12) -- Offbeat
  # "FMRhodes2"
  # pan 0.8
d8 $ gM2 $ gF1
  $ midiOn "^60" (mask "t(<4 8>,<8 8 16 16>)")
  $ midiOn "^92" (ply 2)
  $ chop 16
  $ loopAt 2
  $ "jungle_breaks" # n "<42!3 41>"
  # gain 0.8
  # cut 8

once $ note "[a3,cs4,e4]" # "FMRhodes1" # orbit 3
once $ note "[e3,gs3,b3]" # "FMRhodes1" # orbit 3
once $ note "[fs3,a3,cs4]" # "FMRhodes1" # orbit 3
