(bind-func test37 (lambda () (let ((v (test36)) (i 0)) (dotimes (i 10) (printf "%lld:%f\n" i (aref v i))))))