setcps (90/60/4)

resetCycles

do
let g = (# djf (slow 32 $ range 0.1 0.75 sine))
d1 $ g
  $ fast 2 "k k k [<k <~ k> k k> <~ k>]"
  # "[cpu,808bd:2]"
  # gain 1.25
d2 $ g
  $ n (stack [
    "~ <2!3 11>",
    ("1(<4 5 6 8>,8)" |+ (run 8))
    ])
  # "amencutup"
  # gain 1.25
d5 -- Broken amen aigu
  $ n "<10!4 11!3 ~ 10 10 11 11 11 ~ 10 ~>(<10!3 8>,16)"
  # pan (slow 16 $ range 0.2 0.8 sine + perlin/4)
  # "amencutup" # gain 1.2
d3 $ g
  $ slice 8 (run "<2 4 8 16 16 8 16 32>")
  $ chop 16
  $ loopAt 2
  $ "fguitar:22"
  # gain (slow 16 $ range 0.9 1.13 sine)
  # pan 0.2
  # cut 1
d4
  $ mask "t <f t? [f t] [t t?]>"
  $ slice 8 "0 . 4 5 6 7"
  $ chop 16
  $ loopAt 2
  $ "fbass:22"
  # pan 0.2
  -- # lpf 200
  # gain 1.2
  # cut 1
d5 -- Epiano nappes + arp
  $ g
  $ someCyclesBy "1" (superimpose (
    slice 4 "0 . 2(<3 5>,8) <~ <3? 3>>"
    . (|+ note 12)
    . (# cut 51)
    . (|+ pan 0.3)
  ))
  $ note ("<0 0 3 0>/2" - 12)
  # "fepiano:4"
  # cut 5
  # pan 0.6
  # gain 1.2



once $ "" # cut 5 # gain 1.8

once $ "macron:1" # cut 5 # gain 1.8