proc alphaIndex ind {

	lassign [split $ind ,] r c
	set ca [ctype char [expr 64+$c]]
	return "$ca$r"

}
