(bind-func ocv_imread (lambda (filename:String* flags) (let ((mat (Image_IMRead (cstring filename) flags))) (zone_cleanup (Mat_Close mat)) (ocv_Mat mat))))