(define make-rsce-unaryop
  (lambda (special)
    (lambda (a)
      (make-rsce-ugen "UnaryOpUGen" special (list a) #f 1 nil-id))))

(define neg (make-rsce-unaryop 0))
(define u:not (make-rsce-unaryop 1))
(define is-nil (make-rsce-unaryop 2))
(define not-nil (make-rsce-unaryop 3))
(define midi-cps (make-rsce-unaryop 17))
(define u:sin (make-rsce-unaryop 28))