do
setcps 0.5
-- let gPont = (whenmod 64 32 (# djf (max 0.5 (slow 16 $ range 0.9 0.5 saw))))
let gDJF = (whenmod 32 24 (# djf (slow 8 $ range 2 0.1 saw)))
let nofight = (slow 4)
let fight = id
let g = gDJF . fight
d1 $ g
  $ "k k k k*<1 2 1 1>" # "jazz" # room 0.5 # dry 1 # gain 0.7
d2 $ g
  $ mask "<f!8 t!24>"
  $ someCyclesBy (slow 8 saw)  (fast 2)
  $ someCyclesBy (slow 8 sine) (ply 2 )
  $ n "10 <11!4 10!3 11>" # "amencutup" # gain 0.5
d10
  $ "hh*[<4 4 8 12> <6!7 16>]"
  # gain 0.6
d3 $ g $ note (
  "0 . ~ ~ ~ <~!3 1>"
  ) # "cpluck" # n ("<0!14 3 3 4!14 7 7 8!10 7 4 3 2 1 0>")
  # cut 3
  # gain 0.6
  # pan 0.4
  # room 0.2
d4
  $ g
  $ note ("[0|1](<5!3 [5 8]>,8,2)" - 12)
  # "cpluck:5" # cut 4
  # pan 0.6
  # gain 0.6
d5
  $ whenmod 4 3 (superimpose (
    (# cut 41)
    . (|+ note 12)
    . (<| "s*<4 4 4 <8 [8 4]>>")
    ))
  $ "cbow"
  # cut 5
  # pan 0.2
  # gain 0.3
d6
  $ degradeBy ("0 0.9!7" * (slow 32 $ isaw))
  $ note (scale "aeolian" ("0 1 2 <3!8 4!8> <4!8 3!4 4 4 5 6>"))
  # "cbow:8"
  # gain (slow 16 $ range 0.4 0.6 saw)
  # cut 6
  # pan (slow 16 $ range 0.7 0.9 saw)