8 (* A byte+length Pascal string. *)
9 let bitmatch pascal_string =
11 str : len*8 : string }
14 let bits = bitstring_of_string "\022Mary had a little lamb" in
16 | { :pascal_string } ->
17 () (*printf "it's a Pascal string, len = %d, string = %S\n" len str*)
19 eprintf "not matching error\n";