copulating is for procreating