1 (* Open a persistent pattern
8 open bitmatch "tests/test.bmpp"
11 let bits = bitstring_of_string "\022Mary had a little lamb" in
13 | { :pascal_string } ->
14 () (*printf "it's a Pascal string, len = %d, string = %S\n" len str*)
16 eprintf "not matching error\n";