(bind-func vmax (lambda (buf:float* len:i64) (let ((max_val (pref buf 0)) (i 0)) (dotimes (i len) (if (> (pref buf i) max_val) (set! max_val (pref buf i)))) max_val)))