(bind-func read_and_write_frame (lambda (vc vw:ocv_VideoWriter* img) (let ((frame (ocv_read vc img))) (ocv_imshow 'Video' frame) (ocv_write vw frame) (ocv_waitKey 1))))