once $ "dr"

do
resetCycles
setcps (90/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
d1 $ g
  $ midiOn "^73" (fast 2)
  $ midiBoth "^41" "^42" (struct "t t t <t <[~ t] t*2>>")
  $ midiOn "^42" (struct "t*2")
  $ "jazz"
  # midiG' "^78" 0 1
d2 $ g
  $ midiOn "^43" (superimpose (const
      $ midiOn "^41" (fast 2)
      $ "~ . c*<1!3 <2 1>> <~!7 [~ c]>" # "cp"
      # note "-4!7 -2"
      # lpf 4000
      # midiG' "^79" 0 1.4
      ))
  $ ply "<1!16 [2 1]!4 [2!3 1]!8 2!6 [4 1] [2 4]>"
  $ n "[0 <0 1 2 3>]*2"
  # "amencutup"
  # midiG' "^79" 0 1.4
d3 $ g
  $ midiOn "^43" (fast 2)
  $ "d*<4 8 <4 8> <4!3 8>> d*<3 <4 6>> d*<2 3 4 3> d*[1 <1 2 4 8>]"
  # "cpu:4"
  # midiG' "^80" 0 1.8
d4 $ g
  $ "90s_glassatm:3/4"
  # cut 4
  # crushbus 41 (range 16 3.5 "^55")
  # midiG' "^83" 0 1
d5 $ g
  $ stut' 4 "h" ((|* gain 0.6) . (|+ pan 0.05))
  $ "90s_matrix:0/2"
  # midiG' "^84" 0 1
  # crushbus 51 (range 10 1.5 "^56")
  # pan 0.7
d6 $ g
  -- $ slow 2
  $ fix (|* gain 0.93) (note "c6")
  $ midiOn "^89" (fast 4)
  -- $ note ("<c ef f fs c ef f c  ef f fs f ef f ef c>") -- 1&2'
  -- $ note ("<c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 3&4
  $ note ("<c ef f fs c ef f c    ef f fs f ef f ef c        c6 bf5 g f fs f ef c    c ef f ef ef f g c6>") -- 1&2&3&4
  # octave 2
  # "supersaw"
  # voice 0.01
  # crushbus 61 (range 16 1.5 "^53")
  # midiG' "^81" 0 1.3