let
map l ~f = count_map ~f l 0