(define (RC R C dt)
  (lambda (i v)
    (add-stream (stream-scale ones v)
                (stream-scale (integral i 0 dt) (/ 1 C))
                (stream-scale i R))))