···

       
648
       
648
       
 
       
        (fun acc (_, _, date, _, _) -> max acc (String.length date))

     

       
649
       
649
       
 
       
        0 event_data

     

       
650
       
650
       
 
       
    in

     

       
651
       
651
       
-
       


     

       
652
       
651
       
 
       
    (* Format each event with calculated widths *)

     

       
653
       
652
       
 
       
    let formatted_events =

     

       
654
       
653
       
 
       
      List.map