do let dGlob = (# djf 0.7) let dGlob = (id) setcps (120/4/60) d1 $ dGlob $ whenmod 8 7 (>| "k*4") $ mask "<t!7 f>" $ "k . ~ k ~ ~" # "[jazz,techno]" # gain 1 d2 $ dGlob $ mask "<f!4 t!12>" $ "~ s ~ <s!7 s*2>" # "sn" # note ("<-12!3 -6>") # lpf 5000 # n "[2,10]" # gain 0.9 d3 $ dGlob $ (|> "hc:1!3 ho:2") $ fast "<12 [16 8] 16 [8 16]> <4 <12 8> 4>" $ "hc" # pan 0.65 # gain ("<0.75!8 0.9!8 0.8!4 0.55!4>" * 0.85) d4 $ dGlob $ mask "<t f t!2 f!4 t!8> <f!3 t t!3 f t!16>" $ slice 8 "0 1*<1 <2 <1 4>>> 2(3,8) <3!3 7>" $ "fbass:38" # cut 4 # gain 1 # pan 0.4 d5 $ dGlob $ slice 4 ("<0 1 0 2 0 1 2 3>*2") $ "fguitar" # n "<38!8 39!4>" # cut 4 # gain (slow 8 $ "<0 0.25 0.5 0.75>") once $ "fepiano:5" # cut 21 # gain 1.1