(bind-func ocv_rectangle (lambda (mat:ocv_Mat* rect color thinkness) (Rectangle (tref mat 0) rect color thinkness)))