let map l ~f = count_map ~f l 0