awk ' # format#   Input:  sort key (tab) string (tab) numlist#   Output: troff format, commands interpreted BEGIN {	FS = "\t"	s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz "	# set upper["a"] = "A"	for (i = 1; i <= 27; i++) upper[substr(s,i+27,1)] = substr(s,i,1)	# set lower["a"] =  lower["A"] ="a"	for (i = 1; i <= 27; i++) {		lower[substr(s,i,1)] = substr(s,i+27,1)		lower[substr(s,i+27,1)] = substr(s,i+27,1)	}}{ # mark change between letters with .YY	# find first non-punctuation char	for (i = 1; (c = substr($1,i,1)) != ""; i++)		if (c ~ /[a-zA-Z0-9 ]/)			break	this = c	if (!(this in lower)) lower[this] = " "	this = lower[this]	if (this != last)  # && this != " ")		print ".YY", this, upper[last=this]	quoted = 0   # interpret font change language 	if ($2 ~ /^   /)	# different macro, to avoid bad breaks in hier		print ".ZZ"	else		print ".XX"	if (NF == 3)		$0 = $2 "," "  " $3	# discard sort key, leave term .. numlist	else		$0 = $2 	if ($0 ~ /%/) {		quoted = 1		gsub(/%%/,  "QQ0QQ", $0)		gsub(/%\[/, "QQ1QQ", $0)		gsub(/%\]/, "QQ2QQ", $0)		gsub(/%\{/, "QQ3QQ", $0)		gsub(/%\}/, "QQ4QQ", $0)		gsub(/%~/,  "QQ5QQ", $0)	}	gsub(/%e/, "\\e", $0) # %e -> \e	gsub(/~/, " ", $0)    # unpaddable spaces go away at last	if (gsub(/\[/, "\\\\&\\f(CW", $0))		gsub(/\]/, "\\fP",   $0)	if (gsub(/\{/, "\\f2",   $0))		gsub(/\}/, "\\fP",   $0)	if (quoted) {		gsub(/%/, "", $0)		gsub(/QQ0QQ/, "%", $0)		gsub(/QQ1QQ/, "[", $0)		gsub(/QQ2QQ/, "]", $0)		gsub(/QQ3QQ/, "{", $0)		gsub(/QQ4QQ/, "}", $0)		gsub(/QQ5QQ/, "~", $0)	}	printf "\\&%s\n", $0}' $*