sig
  val token : Lexing.lexbuf -> Benl_parser.token
  val stanza_fold :
    (string Benl_core.StringMap.t -> 'a -> 'a) -> Lexing.lexbuf -> 'a -> 'a
end