mapcar-and-reduce