make pairs using mapcar