TEXT TO lcStr NOSHOW TEXTMERGE
Cryopreservation is the most efficient method for long-term preservation of mammalian sperm. However, freeze-thawing procedures may strongly impair the sperm function and survival and thus decrease the reproductive performance.
ENDTEXT
ALINES(laStr, lcStr, 4 + 1, SPACE(1), ",", ".")
LOCAL la[26]
la = 0
FOR lnJ = 1 TO ALINES(laStr, lcStr, 4 + 1, SPACE(1), ",", ".")
	ln = ASC(PROPER(LEFT(laStr[lnJ], 1))) - 64
	la[ln] = la[ln] + 1
ENDFOR 
FOR lnJ = 1 TO 26
	IF la[lnJ] > 0
		? SPACE(5) + CHR(lnj + 64), la[lnj]
	ENDIF
ENDFOR