···

       
628
       
628
       
 
       
      let generator =

     

       
629
       
629
       
 
       
        let ical_event = to_ical_event event in

     

       
630
       
630
       
 
       
        let recurrence_ids = get_recurrence_ids event in

     

       
631
       
631
       
+
       
        Fmt.pr "Event:\n%s\n" (format_event ~format:`Entries (clone_with_event event ical_event));

     

       
632
       
632
       
+
       
        List.iter (fun e ->

     

       
633
       
633
       
+
       
          Fmt.pr "Recurrent ID event:\n%s\n" (format_event ~format:`Entries (clone_with_event event e))) recurrence_ids;

     

       
631
       
634
       
 
       
        recur_events ~recurrence_ids ical_event

     

       
632
       
635
       
 
       
      in

     

       
633
       
636
       
 
       
      collect generator []