let of_list l = List.sort ~cmp:cmpsi l