let is_empty_list = function l -> l = []