(define (f64vector-map proc vector)
   (let ((len (f64vector-length vector)))
        (let loop ((index 0) (out (make-f64vector len)))
 (if (< index len) (begin (f64vector-set! out index (proc (f64vector-ref vector index)))
(loop (+ index 1) out))
out))))