type name = {family : string;given : string;additional : string;prefix : string;suffix : string;
}type phone = {number : string;kinds : string list;
}type email = {address : string;kinds : string list;
}type address = {street : string;locality : string;region : string;code : string;country : string;kinds : string list;
}type card = {uid : string;name : name;full_name : string;org : string;title : string;phones : phone list;emails : email list;addresses : address list;birthday : Civil.date option;note : string;
}val make : string -> cardval of_string : string -> card listval to_string : card list -> stringval structured : string -> string listval display_name : card -> stringval compare_by_name : card -> card -> int