setcps 0.5

do
  d1 $ "dr"
  d4
    $ someCycles (# silence)
    $ someCyclesBy 1 ((# room 0.2) . (# gain 0.5))
    $ superimpose (rev . chop 16)
    $ s "nass:1"
    # gain 0.9
  d2 -- Vents mélodiques
    $ whenmod 32 24 (juxBy 0.75 rev)
    $ whenmod 32 16 (rev)
    $ superimpose (|+ note "c'maj")
    $ n (run 10) # "wind"
    # speed (range 1 0.25 perlin)
    # gain (range 0.4 0.6 perlin)

  d3 -- Mer
    $ often (off 1 (# crush 5))
    $ "seawolf/4" # n (irand 3) # gain 0.7