(module
  (define (main)
    (let ((x (vector 1 2 3 4 5))
          (y (kernel ((i (length x)))
               (* (vector-ref x i) 2))))
      (print-vector y))))