do
  solo 1
  solo 2
  solo 3
  solo 4
  d1
    $ whenmod 16 12 (mask "t(<0!2 1!2>,2)")
    $ s "k . k(<3 1 2 3>,8)" # s "reverbkick"
    # lpf 200 # gain 0.6
  d2 -- Drumroll
    $ every 4 (fast 2)
    $ fast ("<1!3 2>" * 4)
    $ s "drum:8" # gain 1.1
  d3
    $ superimpose (
      off 0.125 (ply 2)
    . fast 2
    . (|+ 24)
    )
    $ note "<f4'maj f4'min f3'min f4'maj>"
    # s "superpiano"
    # velocity (slow 16 $ range 0.35 0.4 sine)
    # gain (slow 64 $ range 0.5 1 saw)
  d4 $ arp "pinkyup downup" $ note ("f2'maj")
    # s "supersaw" # voice 0.3 # gain 0.4

do
  setcps 0.5
  d1 $ note "0 0 0 <0!3 <~ [~ 0]>>" # s "jazz" # gain 0.9
  d2
    $ every 4 (off 0.125 id)
    $ whenmod 16 8 (fast 2)
    $ s "~ cp" # lpf 4000
    # gain 0.95
  d3
    $ every 8 (ply 2)
    $ s "dr*<8!3 16>"
    # gain (slow 16 $ range 0.7 1 perlin)
  d4
    $ whenmod 32 16 (mask "t(<1!8 3!4 4!4>,4)")
    $ note (scale "aeolian" (
      sometimes (7 -)
      "0 ~ [4 <5 7> ~]"
      ) - 36)
    # s "supersaw"
    # voice 0.01
    # gain 0.8
  d7 -- synthe echos electrique
      $ superimpose (
        (# s "supercomparator") .
        (# voice (slow 64 $ sine * 8)) . (|- note 12)
      )
      $ whenmod 16 8 (sometimes (juxBy 0.4 (|+ note 12))) -- jux eclairs!
      $ degradeBy "<1 1 1 0> <[1 1 1 0] [1 0] 0>"
      $ n "0*16"
      # voice 0.1
      # s "supersquare"
      # note (scale "aeolian"
      "<0 0 0 0 2 2 4 -2>")
      # gain 0.55