let sort_languages_by_name = List.sort (fun l1 l2 -> Pervasives.compare (String.lowercase l1#get_name) (String.lowercase l2#get_name))