product cartesien for more sets using mapcar