;; (rate -> ugen) -> (any -> ugen)
(define kr
  (lambda (u)
    (lambda (_) (u rsc3:kr))))

;; (rate -> ugen) -> (any -> ugen)
(define ir
  (lambda (u)
    (lambda (_) (u rsc3:ir))))