A BASIC program to recast garnet end members (Q264785)