do
setcps (125/60/4)
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 k k k")
  $ midiOff "^42" (<| "k . [k*<1 2 <1 2> <1 <4 [4 2]>>>] ~")
  $ "jazz"
d2 $ gF1 $ gM1
  $ "~ s ~ s*2" # "<rampleM12:3!3 rampleM12:2>" # note "<-0.5!3 -4.5>"
  # gain 0.8
d3 $ gF1 $ gM1 $ "hh(<3!3 <3 5 7 1>>,8) hh(<3!3 5>,8)"
  # "h2ogmhh"
 # gain 0.8
d4 $ gF2 $ gM3 -- Blues "Fenbass" bassline
  $ sometimesBy (1 - "^17") (# n "7")
  $ midiOn "^89" (ply "2 <2 2 4 8>")
  $ midiOn "^57" ( -- SLICING MACHINE
    slice 16 ("<0 4 8 12>"
  + "<[0 1 2 3]!8 [<0 3 1 <3 2>>*8]!8>"))
  -- $ chop 16
  $ "nujazz_bass125:6"
  # crushbus 41 (range 16 4 "^53")
  # roombus 42 (range 0 0.4 "^33")
  # pan 0.4
  # cut 4
d5 $ gF3 $ gM3 -- Pixelated love
  -- $ midiOn "^58" ()
  $ swing 16
  $ arp "up"
  -- Shape of my pixel hearts
  $ whenmod 64 8 (|+| note "0 12 0 <12!8 [12 24 12 0 12]!4 [12 0 12 -12 0]!3 [[12 0 12]*8]>")
  $ note (
    "<g a bf <c6!3 d6>>"  -- Gamme
    - 12 -- Octave
    )
  # "FMRhodes1" # cut 5
  # roombus 52 (range 0 0.4 "^34")
  # modIndex "^54"
  # pan 0.7
d10
  $ off 0.5 ((# n 6) . (|* gain 0.35) . (|+ pan 0.1))
  $ note (
    "<g4 <a4 bf4 a4 ef4>>"
    -- + "0 0 0 0"
    )
  # "cbow:1"
  -- # cut 10
  -- # att 0.5
  -- # rel 2
  # legato 0.8
  # gain 0.5
d11 $ gF3 $ gM3
  $ note ("~ 0 ~ 0" + "<d4 <[d4 ef4] <[ef4 d4] [g4 fs4]>>>" +3)
  # "daft"
  # end 0.05
  # gain 0.7
  # room 0.8 # sz 0.8 # dry 1.9
d8 $ gF1 $ gM1 -- Break danse orleanaise
  $ chop 16
  $ midiOn "^92" (ply "<2 [2!3 <4 8>]>")
  $ midiOn "^36" (loopAt 2 . (# n "<44!7 [44 48]>"))
  $ midiOn "^56" (loopAt 2 . (# "jungle_breaks:48"))
  $ loopAt 2
  $ "jungle_breaks:45"