do
  setcps 0.5
  d1 $ "k k k k*<2!3 1>" # "[jazz,reverbkick]" # gain 0.75
  d2 $ fast 4 $ s "~ cp*<1!3 2>" # gain 0.85
  d3 $ s "drum*8"

  d3
    $ slow 4
    $ "sax"
    # note (scale "major" "<2 4 7 12>")
    # gain 0.8


do
  let mel = "<c4'maj c4'min e4'maj c4'maj>/4"
  d1
    $ s "reverbkick(<3 <5!2 7>>,8)" # gain 0.9
  d2 $ fast 2 $ s "~ <s!3 s*2>" # s "snare:11"
    # gain 0.9
  d3 $ jux id $ fast "<8 16> <4!3 8>" $ s "dr"
  d4
    $ stut 8 0.8 0.5
    $ note mel
    # s "superpiano" # velocity 0.65
  d5
    -- $ chop (slow 2 $ "1 2 1")
    $ note ("0" + mel - 12) # s "supersaw"
    # voice 0.1 # gain 0.7


  d6
    $ swing 4
    $ often (ply 2)
    $ s "space"
    # speed
    # n "[1|2]" # gain 0.75

do
  d1
    $ whenmod 8 7 (# silence)
    $ sometimesBy "1 0 0 0" (# lpf 200)
    $ s "t t t <t!3 t*2>"
    -- "t t t*2 [~ t]"
    # s "jazz" # gain 1
  d2 $ s "hh" # gain 1
  d3
    $ note ("<0!4 2!2 4 7>" + "d3'maj")
    # s "supersaw" # gain 0.9
  d4 $ s "~ ~ cp ~" # gain 0.7
    # room (slow 10 $ range 0.3 0.9 sine)
    # sz 0.4 # dry 1
  d5
    $ superimpose (
    mask "t(3,4)"
    . (# sustain "0.25 0.25 0.5 ~")
    . (|+ note "12")
    . arp "up"
    . chop 4
    )
    $ note ("<0!4 2!2 4 7>" + "d3'maj")
    # s "moogBass" # gain 0.9


    once $ s "macron:7" # gain 1.1


do
  let melody = "<c4'maj!2 c4'min f4'maj>"
  d1 $ fast 4 $ s "jazz" # gain 0.5
  d2 $ sound "t*2 . t t t" # s "dr" # gain 0.6
  d3 $ chop "<4!3 8>" $ note (melody - 12) # s "supersaw" # voice 0.1 # gain 0.8
  d4 $ note (melody) # s "superpiano" # velocity 0.5