let mk g n =
                  {
                    egram = g;
                    ename = n;
                    estart = empty_entry n;
                    econtinue =
                      (fun _ _ _ (__strm : _ Stream.t) ->
                         raise Stream.Failure);
                    edesc = Dlevels [];
                  }