let bstr_ws_buf = Array1.create char c_layout 1