(load-from-lib "from-to.ss") (define vector-for-each ; TYPE: (-> ((vector T) (-> (number) void)) ; void) (lambda (vec what-to-do-for-i) ((from-to 0 (sub1 (vector-length vec))) what-to-do-for-i)))