let c_md p = OldCompiled.Matcher {OldCompiled.md_matcher = p}