Insert edge loop just below top, then grab the top row of verts, scale in and v-snap down to the new edge loop. Any others?