let is_select_hstring hs = let s = HString.string_of_hstring hs in try Scanf.sscanf s "_select%s" (fun _ -> true) with Scanf.Scan_failure _ -> false