let max_length_message automate =
max_length_string
(List.flatten
(List.map
(fun (name,id,_,actionsL) ->
List.flatten
(List.map
(fun (initial,_,final) ->
[(transcript_to_real (get_name_in_session name id) initial);(transcript_to_real (get_name_in_session name id) final)])
actionsL)
)
automate))