for_pork.hs

d1 $ sound "[808bd:3 ~ 808bd:3 ~ 808bd:3] ~ ~ [808bd:3 ~]*3"
d1 silence
d2 $ sound "hh:2 hh:2 hh:3"
d2 silence
d3 $ sound "808:2*3 808:3*2"
d3 silence
d5 $ every 4 (rev) $ sound "[808:5*6] 808:6*2"
d5 silence
d6 $ sound "arp:2/4"

d7 $ slow 4 $ up "0 2 7 8" # sound "arp:5 arp:5" # gain 0.7 # pan sine
d8 $ slow 2 $ every 3 (fast 2) $ every 4 (rev) $ up (run 16) # sound "808sd:6(6,12)" # gain 0.8 # speed ((range 0.5 1 sine) * (slow 2 (range 1 2 saw)))
d8 silence 
d9 $ slow 2 $ up "0 ~ 2 7 ~ 8 ~ -12" # sound "gabor" # gain (slow 2 ((range 0.6 0.9) sine)) # sustain (range 0 2 sine) # crush 6
d9 silence

setcps (160/60/4)

hush