cartesien with mapcan and mapcar