(define sin-osc
  (lambda (f p)
    (make-rsce-ugen "SinOsc" 0 (list f p) #f 1 nil-id)))

(define saw
  (lambda (f)
    (make-rsce-ugen "Saw" 0 (list f) #f 1 nil-id)))

(define lf-saw
  (lambda (f p)
    (make-rsce-ugen "LFSaw" 0 (list f p) #f 1 nil-id)))

(define line
  (lambda (s e t a)
    (make-rsce-ugen "Line" 0 (list s e t a) #f 1 nil-id)))