let continue_parser_of_entry entry =
                  match entry.edesc with
                  | Dlevels elev ->
                      let p = continue_parser_of_levels entry 0 elev
                      in
                        (fun levn bp a (__strm : _ Stream.t) ->
                           try p levn bp a __strm with | Stream.Failure -> a)
                  | Dparser _ ->
                      (fun _ _ _ (__strm : _ Stream.t) ->
                         raise Stream.Failure)