replaced cl-reduce with reduce-and
merge resolution