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