once $ "space" # gain 0.4

do
-- region Nova Utils
let gF = 1.5
let gG a = (gain (gF * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 19800 ("^49")))))
let gHPF = (# hpf (max 0 (min 10000 ((range "-9000" 9000 ("^49"))))))
let gDJF = (gLPF . gHPF)
let gCPS = (# cps ((range 60 124 "^13")/60/4))
-- let bpm = ("^13")
-- endregion Nova Utils
let g = id
let g = gDJF
-- setcps (92/60/4)
-- setcps 0.5
-- resetCycles
d1 $ g $ gCPS $ "k . <k k(<3 5>,8)>" # "reverbkick"
  # lpf 1000
  # gM' 0 1.4 "^78"
  # cps ((range 1 127 "^13")/60/4)
d2 $ g -- Break slow downtempo
  $ someCyclesBy "^74" -- Intro
  (slice 8 "0 4")
  $ someCyclesBy "^75" -- Laggy
  (slice 8 "0 1 4 3")
  $ someCyclesBy "^76" -- Fulltime!
  (slice 8 "0 1 2 <3!2 ~ 3> 4 5 6 7*<1 <2 4>>")
  $ slice 8 ("0 1 2 1 3 <5!3 3> 2 <3 1>")
  $ "breaks125:4"
  # gM' 0 1.4 "^79"
d3 -- Drumroll Zelda
  $ g
  $ "d*2 . ~ d*<1!3 2> d*2 d*2"
  # "[drum:2,tech:13]"
  # gM' 0.2 1.4 "^80"
d4 $ g
  $ note ("<c4 bf3 af3 g3>")
  # "supersaw"
  # voice 0.1
  # gM "^81"