type moment = {date : Civil.date;time : int option;utc : bool;
}type event = {uid : string;summary : string;description : string;location : string;start : moment;end_ : moment option;rrule : Recur.rule option;
}type todo = {uid : string;summary : string;due : moment option;priority : int;completed : bool;
}type calendar = {events : event list;todos : todo list;
}val unfold : string -> string listval fold : string -> stringval content_line : string -> (string * (string * string) list * string) optionval escape : string -> stringval unescape : string -> stringval moment_of_string : string -> moment optionval moment_to_string : moment -> string