do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  $ midiOn "^42" (<| "k*4")
  $ midiOff "^42" (<| "k . ~ k")
  $ fix (# lpf 500) "kick"
  $ "[jazz,kick:5]" # lpf 2000
d2 $ gF1 $ gM1
  $ "~ sn . ~ ~ sn*<1!3 2> ~"
  # "snare:44"
  # lpf 4000
d3 $ gF1 $ gM1
  $ "dr*[8 <8 [16 <16 4>]>]"
d4 $ gF2 $ gM3
  $ superimpose (
    # crushbus 41 (range 15 2.5 "^53")
  )
  $ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,<5 7>(3,8)]")
  # "bassWarsaw"
  # gain 1.4
d5 $ gF3 $ gM3
  -- $ superimpose (
    -- # crushbus 41 (range 15 2.5 "^53")
  -- )
  $ superimpose ((stutWith 3 "s" (|- note "12") ) . (|+ note 24) . (# cut 51))
  $ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]")
  # "FMRhodes1"
  # gain 1.4
  # modIndex (range 0 4 "^54")
d5 $ gF3 $ gM3
  -- $ superimpose (
    -- # crushbus 41 (range 15 2.5 "^53")
  -- )
  $ superimpose ((stutWith 3 "s" (|- note "12") ) . (|+ note 24) . (# cut 51))
  $ note ("<g3 e4 <d4 <g4 [d4 g4]>> <b3!7 e4>>" + "[0,12]")
  # "FMRhodes1"
  # gain 1.4
  # modIndex (range 0 4 "^54")
d7 $ gF1 $ gM2 $ loopAt 1 $ chop 16 $ "jungle_breaks:100" # cut 7 #  gain 1.3
d8 $ gF1 $ gM2
  $ midiOff "^60" (mask "t(4,8,f)" . chop 8)
  $ chop 8
  $ loopAt 1
  $ midiOn "^56" (# "jungle_breaks:45")
  $ "jungle_breaks:20"
  # gain 1.2

scaleList


once $ arp "down " "fs'minPent"
