not finished with mapcar-and-reduce