let
mapi l ~f = count_mapi ~f l 0