sig
  val token : Lexing.lexbuf -> Benl_parser.token
  val stanza_fold :
    ((string * string) list -> '-> 'a) -> Lexing.lexbuf -> '-> 'a
end