type timeslice_t = {
    (* Action *)
    label: string ;
}

type timeline_t = timeslice_t list