d1 $ "t*4" # "tek_kick:4"
  # gain 0.9

do
setcps (134/60/4)
let f1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let f2 = (# djfbus 2 (range 0.25 0.75 "^29"))
let f3 = (# djfbus 3 (range 0.15 0.85 "^13"))
d1 $ f1
  $ midiOn "^42" (
    (<| "k . ~ k ~ ~" )
  )
  $ midiOff "^42" (<| "k*<1 1 2 <1 2>> . k(3,8)" )
  $ "[kick:5,jazz,reverbkick]"
  # end 0.25
  # midiG' "^78" 0 0.8
d2 $ f2 $ "~ s ~ s*<1!3 2>"
  # "snare"
  # n "[21,22]"
  # midiG' "^79" 0 1.3
d3 $ f2
  $ "h*[<8!8 4 4 16 8 8!4> <16 [16!<1 3 7> <8!3 16>]>]"
  # "tek_hh:3"
  # midiG' "^80" 0 0.8
  # cut 3
d4 $ f3
  $ midiOn "^58" (slice 4 ("0 0 0 <0 1 2>"))
  $ loopAt 4
  $ "tek_loop:1"
  # cut 4
  # gain 0.7
  # midiG' "^82" 0 0.8
  # pan 0.7
  # crushbus 4 (range 12 1.5 "^54")
d5 $ f1
  $ superimpose ((# octave 3) . (# "bassWarsaw") . mask "t f!7")
  $ note ("<e <f c>>" + "[c,c([3 <3!4 5!2 3 8>],8)]")
  # "tek_bass"
  # pan 0.3
  # crushbus 5 (range 10 3.5 "^53")
  # midiG' "^81" 0 1.2
d7 $ f3
  $ someCyclesBy "<1!6 <0 1> 0!1>" (# gain 0)
  $ "<t t*4>" # "tek_end:2"
  # midiG' "^84" 0.2 0.8
  # hpf (slow 32 $ range 0 5000 perlin)
d8 $ f3 -- Pretty much decent!
  $ "bogdan:21/4"
  # begin "<0!4 0.5!4>"
  # end "<1!8 0.5!4 1!4>"
  # midiG' "^84" 0 2
  # cut 5
  # room 0.4

once $ "tek_strange"
  # gain 0.8


once $ "tek_end:2"
  # gain 0.8


once
 $ note "<c e>"
 # "tek_bass"
 # cut 5
 # gain 0.8

d4 $ f3
  -- $ superimpose (|+ note "c'min")
  $ arp "up"
  $ note "g'maj'4"
  # "tek_bass"
  # octave "[4,5]"
  # midiG' "^81" 0 0.8