let clear e =
                  (e.estart <-
                     (fun _ (__strm : _ Stream.t) -> raise Stream.Failure);
                   e.econtinue <-
                     (fun _ _ _ (__strm : _ Stream.t) -> raise Stream.Failure);
                   e.edesc <- Dlevels [])