let parse_e extras par =
List.filter_map (fun (field, p) ->
try begin
match p with
|None -> Some(field,parse_s parse_string field par)
|Some parse_f -> Some (field,parse_f par)
end with Not_found -> None
) extras