do
  d1 $ "jazz*4" # gain 0.8
  d3
    $ whenmod 32 16 (superimpose (# "cp"))
    $ s "~ s*<1 1 2 1> ~ s"
    # s "snare:83"
    # gain 0.6
  d5 -- Laggy bass
    $ juxBy 0.8 (
      euclid (slow 4 "<2 [4 2 4 4] [3 4] [4 5] [5 2] [2 5]>") 8
      . chop 4
      . (# crush 5)
      . (# release (slow 4 "<2 4 8>"))
      . (|* gain 1.1)
      . (|+ note 12)
      )
    $ note ("<c3 <f3!2 g3 f3>>/2")
    # "supersaw"
    # voice 0.1
    # pan 0.4
    # gain 0.5
  d6 -- continuous laser
    $ mask "t . <f!3 t> <f t>"
    $ s "bd" >| speed (
      segment 100 $
      range (slow 16 $ "<10!8 10 40 50 70 90 110 130 150>")
            (slow 16 $ "<20 30 40 50 40 30 20 10>")
      saw
    )
    # gain 0.65
    |- note "[<12 ~>,24,<-12 -12?>]"
  d8 -- Lead forks!
    -- $ fast 2
    $ whenmod 32 26 (degradeBy 0.2)
    $ whenmod 32 24 (|> note (scale "aeolian" (run 8) - "[0,12]"))
    $ superimpose (|+ note (slow 4 $ "<5 3> 5"))
    $ euclid "[<3 3?>,5?]" 8
    $ s "s"
    # s "superfork"
    # room 0.5
    # gain 0.45
    # pan (slow 4 $ sine)
    |- note 12