let parse_preferences_in ic = Format822.parse_from_ch (preferences_parser parse_preferences_stanza []) ic