;; vec-a is computed at compile-time
(define %vec-a (vector-unfold (lambda (i)
                                (* i i))
                              5))

;; take vec-a's length at compile-time
(define %len-a (vector-length %vec-a))

(define (main)
  (define out (current-output-port))
  (write-string "Print vec-a with vector-for-each:\n" out)
  (write-integer %len-a out)
  (vector-for-each (lambda (i val)
                     (write-string " vec-a[" out)
                     (write-integer i out)
                     (write-string "] = " out)
                     (write-integer val out)
                     (newline out))
                   %vec-a %len-a)
  0
)