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