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))