Cheap trick to convert tris to quads in a pole circle

simpleTriToQuadInCircle.mel

polyExtrudeVertex -constructionHistory 1 -width 0.5 -length 0 -divisions 1;
$allEdges = `polyListComponentConversion -fv -te`;
$allEdgesList = `ls -fl $allEdges`;
select -cl;
for($edge in $allEdgesList) {
    string $tokens[];
    tokenize $edge "[]" $tokens;
    int $id = (int) $tokens[1];
    if ($id % 2 == 0) {
        $edgeName = $tokens[0] + "[" + $tokens[1] + "]";
        select -add $edgeName;
    };
};
doDelete;