do
  let modIndex = pF "modIndex"
  let g =  (# djfbus 1 (range 0.1  0.9 "^49"))
  let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
  let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
  let gMute = (midiOn "^73" (mask "f*16"))
  let gM = gMask . gMute
  let prog = "<a3'min'4 c3'maj'4 f3'maj'4 [d3'min'4 e3'min'4]>"
  setcps (120/60/4)
  d1 $ g $ gMute -- BOUNCE THAT KICK
    $ midiOn "^41" (<| "k")
    $ midiOn "^42" (<| "k*4" )
    $ midiOff "^42" (<| "k . k(<3!3 [3 5]>,8)")
    $ fix (# lpf 200) "kick:4"
    $ "[808bd:1,808bd:0,jazz]"
    # midiG' "^78" 0 1.5
  d2 $ g $ "~ cp ~ cp*<1!3 2>" # "snare:20"
    # lpf 2000
    # midiG' "^79" 0 1.2
  d3 $ g
    $ midiOff "^44" (mask "f(<4 2>,8)")
    $ midiOn "^76" (ply "2 <2 2 4 8>")
    $ chop 16
    $ loopAt 2
    $ "break:0" # cut 3
    # midiG' "^80" 0 1.2
  d4 $ g2 -- BASSLINE
    $ note (
      prog
      + "0@3 0"
      - 12
      )
    # "giorgio_syn:0"
    # legato 0.4
    # lpf 3000
    # pan 0.3
    # midiG' "^81" 0 0.9
  d5 $ g2
    $ note (
      prog
      + "0@3 0"
      )
    # "superpiano"
    # velocity 0.5
    # pan 0.3
    # midiG' "^82" 0 1.5
  d6 $ g2
    -- $ sometimesBy (1 - "^55") (mask "t f(3,8)")
    $ note (
      -- + "0 0(<3 <3 5> 3 5>,8)"
      "g . [g b5] <c6 c6 d6 e6>"
      -- + "0*4@3 [0 12 0]"
      + 12
      )
    # "superpiano"
    # velocity 0.5
    # pan 0.7
    # midiG' "^83" 0 1.5
  d8
    $ whenmod 4 3 (mask "t(4,12)")
    $ note (fast 2 $
    "<c a g e>"
    + "0 . 0*2"
    )
    # legato 1.2
    # "cbow:2"
    # cut 8
    # sustain 0.5
    # pan 0.8
    # midiG' "^84" 0 0.7

once $ "cbow:7"
  # gain 0.8 # cut 5


once $ "giorgio_syn:1" # cut 4

-- GARAGE

d8 $ note (fast 2 $
"<c7 a6 g6 e6>"
+ "0 . 0*<3 [3 6]>"
- 12
)
# legato 1.5
# "supergong"
# sustain 0.3
# accelerate 8
# pan 0.8
# midiG' "^84" 0 1.6