let max_length_string (l : string list) : int = 
         match l with [] -> 0
                |[x] -> String.length x
                |-> max_l (List.map String.length l)