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