let rec packages_parser stanza_parser acc p =
  match Format822_parser.stanza_822 Format822_lexer.token_822 p.Format822.lexbuf with
  |None -> acc
  |Some stanza -> begin
      match (stanza_parser stanza) with
      |None -> packages_parser stanza_parser acc p
      |Some st -> packages_parser stanza_parser (st::acc) p
  end