regset [gensine [tabnew 8192]] 0

[regget 0]
phasor [mtof 58] 0
phasewarp zz [rline -0.5 0.5 3]
oscfext zz zz
mul zz 0.5
wavout zz "test.wav"
computes 10