(define impc:ti:vfill! (lambda (ast) (append '(begin) (map (lambda (arg idx) (list 'vset! (car ast) idx arg)) (cdr ast) (make-list-with-proc (length ast) (lambda (i) i))))))