sr=44100
kr=20
ksmps=2205
nchnls=2

instr 22

kenv expseg .01, .2, p4*8000, p3-.2, .01
kwah randi p7*.95, 8, 1/(p2+p5)
a1 foscili kenv, p5, 1.6, p6, p7+kwah, 1

kgliss line 1, p3, 3
amove oscili 4, kgliss/p3, 1
amove=amove+2
a2 vdelay a1, amove, 4
a3 vdelay a2, amove, 4
a1=a1+a2+a3

a4 delay a1, .02

outs a1*p8, a4*(1-p8)

endin