let frequencyl l = frequency (List.map ~f:(fun (i,e) -> (i,always e)) l)