let of_parser name strm = E.of_parser gram name strm