setcps (100/60/4)

do
  d1 -- Kick
    $ whenmod 16 10 ( -- Pont
      # silence)
    $ every' 4 3 (fast 2)
    $ "k . k ~ k?" # s "reverbkick"
    # hpf 150
    # gain 0.7
  d2
    $ whenmod 16 8 (slow 2)
    $ whenmod 16 0 (slow 2)
    $ s "~ s" # s "snare:10"
    # gain (slow 64 $ range 0.5 0.6 cosine)
  d3 -- Drumroll
    $ whenmod 16 10 (ply "<2 4>")
    $ fast "<8!3 <16 [16 8]>>" $ s "drum:8"
    # gain (slow 64 $ range 0.5 0.9 sine)
  d4
    $ slow 2
    $ slice 8 "<0 1 <2 4> <3 5>>*8"
    $ s "bsguitar:4"
    # cut 1 # gain 0.7
  d5
    $ often (superimpose (arpeggiate))
    $ note ("<c5'maj c5'maj c5'min c5'maj>")
    # s "superpiano" # velocity 0.6




  d3
  $ fast 2
  $  fast 4 $ s "dr"
