Paste on 2021-03-10T00:01:19

(do ((i 0 (fx+ i 1)))
            ((fx= i len))
          (set-out! vector-out i
                    (+ (get-a vector-a i)
                       (get-b vector-b i))))