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