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