(define make-rsce-binop
  (lambda (special)
    (lambda (a b)
      (make-rsce-ugen "BinaryOpUGen" special (list a b) #f 1 nil-id))))

(define add (make-rsce-binop 0))
(define sub (make-rsce-binop 1))
(define mul (make-rsce-binop 2))
(define idiv (make-rsce-binop 3))
(define fdiv (make-rsce-binop 4))
(define u:mod (make-rsce-binop 5))
(define eq (make-rsce-binop 6))
(define ne (make-rsce-binop 7))
(define lt (make-rsce-binop 8))
(define gt (make-rsce-binop 9))
(define le (make-rsce-binop 10))
(define ge (make-rsce-binop 11))
(define u:min (make-rsce-binop 12))
(define u:max (make-rsce-binop 13))