(define (ripple-carry-adder list-a list-b list-s c)
  (define cur-c c)

  (define (make-fa a b sum)
    (define next-c (make-wire))

    (full-adder a b next-c sum cur-c)
    (set! cur-c next-c))

  (map make-fa list-a list-b list-s)
  'ok)