do
  setcps (140/60/4)
  let gMask = (midiOn "^41" (mask "t!7 f"))
  let gMute1 = (midiOn "^73" (mask "f*16"))
  let gMute2 = (midiOn "^74" (mask "f*16"))
  let gMute3 = (midiOn "^75" (mask "f*16"))
  let gM1 = gMask . gMute1
  let gM2 = gMask . gMute2
  let gM3 = gMask . gMute3
  let giantA = jchord "<Bmaj7 D7 Gmaj7 Bb7 Ebmaj7 [Am7 D7] Gmaj7 [Bb7 Ebmaj7] [F#7 Bmaj7] [Fm7 Bb7] Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7]>"
  let giantB = jchord "<Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7] Ebmaj7 [C#m7 F#7] Bmaj7>"
  let giantSimple = jchord "<Bmaj7 Gmaj7 Ebmaj7 Bmaj7>"
  let giantVar1 = slow 2 $ jchord "<Bmaj7 Bmaj7 D7 Gmaj7 Gmaj7 Bb7 Ebmaj7 F#7>"
  let giantFull = slow 8 $ giantA
  let giantBass = slow 8 $ jroot "<Bmaj7 D7 Gmaj7 Bb7 Ebmaj7 [Am7 D7] Gmaj7 [Bb7 Ebmaj7] [F#7 Bmaj7] [Fm7 Bb7] Ebmaj7 [Am7 D7] Gmaj7 [C#m7 F#7] Bmaj7 [Fm7 Bb7]>"
  d1 $ gF1 $ gM2 $ midiOn "^42" (struct "t t*<1 2> t t*<1 2 [2 4]>") $ "808bd:13" # gain 0.95 # lpf 250
  d2 $ gF1 $ gM1 $ "~ s ~ [s <~ s*2>]" # "hh27:12" # gain 1.3 # lpf 2000 # legato 0.4
  d3 $ gF1 $ gM1 $ degradeBy 0.5 $ "dr*16" # "h2ogmsn:4" # gain 0.7
  d4 $ gF2 $ gM3 
    $ struct "t ~ t? ~ t ~ t? ~" 
    $ fast 4 $ giantBass |+| n "<0 7> <0 12> [0 7] 0" 
    # "bassWarsaw" 
    # octave 2 
    # lpf (slow 16 $ range 200 600 sine) 
    # resonance 0.2 # room 0.2 # sz 0.3 # gain (1.4 * "<1 0.9 1 [0.9|1.1]>") 
    # legato 0.6 # crushbus 41 (range 16 4 "^53")
  d5 $ gF3 $ gM3 
    $ superimpose (
      (struct "t f t") . (|+ note 12) . arp "pinkyup") 
    $ fast 4 
    $ giantFull # "superpiano" 
    # octave 4 
    -- # modIndex (slow 8 $ range 0.5 4 sine) 
    -- # gain (0.9 * "1 [0.8|1] 0.9 1 [0.7|0.9] 0.9 1 0.8") # room 0.5 # sz 0.7 # dry 1.1 # lpf (slow 16 $ range 3000 6000 sine) # pan (slow 32 $ range 0.3 0.7 sine) 
    -- # attack (0.01 + (rand * 0.015)) 
    -- # release (slow 12 $ range 0.9 1.4 sine) 
    -- # crushbus 41 (range 16 4 "^54")
  d7 $ gF3 $ gM3 
    $ fast 4 $ giantBass 
    # "cbow" 
    # octave 4 
    # lpf (slow 24 $ range 1500 4000 sine) 
    # room 0.7 # sz 0.8 
    # gain (0.65 * "<1 0.8 0.9 1>") 
    # pan (slow 16 $ range 0.2 0.8 sine) 
    # attack 0.04 # release 1
    # legato 0.85
