do
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# 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 modIndex = pF "modIndex"
setcps (62/60/4)
d1 $ gF $ gMute
  $ midiOn "^42" (struct "t t t [<t ~> t t ~]")
  $ midiOff "^42" (struct "t . t(3,8)")
  $ "[808bd:2,jazz]"
  # midiG' "^78" 0 1.2
d2 $ gF $ gM
  $ "~ snare:40" # hpf 5000
  # midiG' "^79" 0 1.1
d3 $ gF $ gM
  $ midiOn "^76"  (ply 2)
  $ midiOn "^44"  (struct "t*[8 16]")
  $ midiOff "^44" (struct "[~ t]*4")
  $ "dr"
  # pan 0.8
  # midiG' "^80" 0 0.85
d4 $ gF2
  $ ("s" <~) -- Calage debut
  $ "shiloh:7" # cut 4
  # begin 0 # end "<0.05!3 0.125>"
  -- # legato "<0.9!3 2>"
  # legato 2
  # room 0.2
  # pan (slow 16 $ range 0.5 0.8 saw)
  # midiG' "^82" 0 0.85
  # roombus 41 (range 0.2 0.9 "^34")
  # drybus  42 (range "-2" 2 "^54")
  # size 0.8
d5
  $ never (superimpose (
    mask "f . t(<3 <5 8>>,8)" .
    arp "pinkyup"
    -- . ply 2
    . (|+ note 12)
    . (# pan 0.7)
    . (# "FMRhodes1")
  ))
  $ note (
    -- "<<f'maj7'4 g'maj7'4> f'major'4>" -- HANDCOOK BUGGY
    "<f'maj7'4 g'maj'7'4>"
    - 24)
  -- Abmaj7 / Cm9 / Gm7
  # "bassWarsaw"
  # pan 0.2
  # room 0.8
  # midiG' "^81" 0 0.85
d6 $ gF
  $ gM
  $ loopAt 1
  $ midiOn "^92" (chop 8 . ply 2)
  $ "breaks125"
  # cut 6
  # midiG' "^84" 0 0.85



once $ "shiloh:5"