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