(define (RC R C dt)
  (define (RC-imp i-stream v0)
    (define R-scale (scale-stream i-stream R))
    (define C-scale (scale-stream i-stream (/ 1.0 C)))
    (define integrated (integral C-scale v0 dt))
    (add-streams R-scale integrated))
  
  RC-imp)