samer@1: (load "sockets.scm")
samer@1: (load "filelist.scm")
samer@1: (load "models.scm")
samer@1: (load "audio.scm")
samer@1: 
samer@1: (define S (make-server))
samer@1: (define x (norm (linein (filesource) 512 256)))
samer@1: (define s (VVector. "s" 512))
samer@1: (expose)
samer@1: (define sk (accept S))
samer@1: (addtask (send-vec sk x))
samer@1: 
samer@1: (define th2 (RThread.))
samer@1: (.addTask th2 (recv-vec sk s)) 
samer@1: