Unknotting of a Polymer Strand in a Melt