do
setcps (80/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 gF4 = (# djfbus 3 (range 0.05 0.95 "^29"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2
  $ superimpose (
    (# lpf 20)
    . (# octer 0.5)
    -- . (# smear 0.2)
    )
  $ fix (# lpf 150) "jazz"
  $ "k . ~ k ~ <k k*[4 2]>"
  # "[808bd:6,jazz]" -- Doux
  # gain 1.2
d2 $ gF1 $ gM1 $ "~ s ~ [s*<1!3 2> ~]"
  # "[snare:70,sn:24]"
  # gain 1.4
  # lpf 4000
d3 $ gF1 $ gM1 $ "d(3,8) d(3,8)"
  # "drum:2" # gain 2 # cut 3 -- Drill that Baby
d5 $ gF3 $ gM3
  $ midiOn "^90" (ply "<4 2 1 2> <2 [1 8]>")
  $ midiOn "^58" (slice 4 "<0 1 2 <3 <2 1>>>*4")
  $ gF2 $ gM2
  $ n "<0!8 1!3 0 1!3 1*4>" -- FIXME: I'd like to let her develop more
  -- $ n "<0 ~>"
  # "jane_wang"
  # cut 5
  # pan (slow 16 $ range 0.6 0.45 saw)
  # gain 1.5
d4 $ gF2  $ gM3 -- Cello bass
  $ midiOn "^89" (|+| note "[0 12 0]")
  $ midiOn "^57" (|+| note "0 0 <7 [7 9](3,8) 7 [7 9 12 7]> 0")
  $ juxBy 0.6 (|+| note ("7([3 1],8)"))
  $ note ("<[fs@7 <~ bf>] [fs@7 <~ cs>] <bf ef> <cs!3 bf>>")
  |* gain "<[1@7 0.9] 1 1 1>"
  # pan (slow 16 $ range 0.45 0.6 saw)
  # "cpluck"
d12 $ gM3 $ gF3
  $ note (
    "<[~ cs ~ cs] [~ fs ~ fs] [~ bf ~ bf] [~ gs@3 ~ cs@2 [gs fs]]>"
    + "<0 0 0 [0 <0 12>]>" + "<0!14!8 12!8>"
    - 24
   )
  # "moogBass"
  # legato 2
  # chorus 1.2
  # cut 12
  -- # tremdp 0.8
  -- # tremr "<2 4 4 <8 16>>"
  # gain 1.2
d7 $ gF1 $ gM1 -- SCRATCH
  $ midiOn "^91" (ply "2 4 <8 8 4 16>")
  $ midiOn "^55" (# n 15)
  $ midiOn "^59" (# n 15)
  $ chop 16
  $ loopAt 4
  $ "scratch_long:12"
  # cut 7
  # pan (slow 16 $ range 0.9 0.6 saw)
  # gain 1.2
d8 $ gF1 $ gM1
  $ someCyclesBy  "<0 1 0 <1 1>>" (slice 8 "0 2 4 <6 ~>")
  $ midiOn "^92" (ply 4)
  $ loopAt 2
  $ chop 16
  $ midiOn "^56" (>| "jungle_breaks:10")
  $ "jungle_breaks:11"
  # cut 8
  -- # room 0.4 # dry 1.1
  # gain 1.4
d9 $ gF3 $ gM3
  $ note ("<cs fs>"
  + "<0!3 ~> <~ 0>"
  )
  # "rampleM6:7" |+ note 4
  # gain 1.2
  # bandf 300
  # end 0.8
  # cut 9
d10 $ gM3 $ gF3
  $ fix (# begin 0.25) "movie_statue:36"
  $ stack [
  -- I'VE GOT YOU SEVERAL TIMES
  mask "<f!24 t!8 f!16 t!16>"
  $ "movie_wine:15*<1 1 2 4>"
  # begin "<0!3 <<0.04 0.1> 0.25>>"
  # room 0.2 # sz 0.1
  # end "<0.45!8 0.5!8>" # cut 101, -- ON MY MIND
  mask "<f!7 t>"
  "<[movie_statue:36 movie_statue:7]>"
  # gain 0.9, -- Young lady from China
  mask "<t!32 f!8 t!8 f!8>" $
  mask "<f!3 t f!4>" $
  "[movie_dead:0 movie_vitality:4]" # end "<0 0.25>",
  -- just a drift --
  mask "<t!8 f!8>"
  $ "[movie_vitality:4]" # end "<0.1!2 0.05!2>" # gain 0.9 # room 0, -- Just a drift
  "<~!3 [movie_vitality:4]>" # end "<0.25>" # begin "<0.1>", -- WITHOUT CONTROL
  ""
  ]
  -- # rel 2 # att 0.1
  # gain 1.3
  # cut 101