let get_bstr_sub_str bstr pos len = let str = String.create len in for i = 0 to len - 1 do str.[i] <- bstr.{pos + i} done; str