let
bstr_ws_buf =
Array1
.create char c_layout 1