!A TECO macro to insert a break and the next letter of the alphbet! !when the initial letter changes in an alphabetized list! !It is assumed that the entire file is in core! !top!(1a)ua(qa-96)"G(qa-32)ua'l(1a)ub(qb-96)"G(qb-32)ub'0l(qa-qb)"Ni .s (qb)ii .s '(.-z+7)"LOtop'