program define NumIt
syntax varname
di "|`varlist'|"
replace `varlist'="1" if `varlist'=="A"
replace `varlist'="2" if `varlist'=="B"
replace `varlist'="3" if `varlist'=="C"
replace `varlist'="4" if `varlist'=="D"
replace `varlist'="5" if `varlist'=="E"
replace `varlist'="6" if `varlist'=="F"
replace `varlist'="7" if `varlist'=="G"
replace `varlist'="8" if `varlist'=="H"
replace `varlist'="9" if `varlist'=="I"
replace `varlist'="10" if `varlist'=="J"
replace `varlist'="11" if `varlist'=="K"
replace `varlist'="12" if `varlist'=="L"
replace `varlist'="13" if `varlist'=="M"
replace `varlist'="14" if `varlist'=="N"
replace `varlist'="15" if `varlist'=="O"
replace `varlist'="16" if `varlist'=="P"
replace `varlist'="17" if `varlist'=="Q"
replace `varlist'="18" if `varlist'=="R"
replace `varlist'="19" if `varlist'=="S"
replace `varlist'="20" if `varlist'=="T"
replace `varlist'="21" if `varlist'=="U"
replace `varlist'="22" if `varlist'=="V"
replace `varlist'="23" if `varlist'=="W"
replace `varlist'="24" if `varlist'=="X"
replace `varlist'="25" if `varlist'=="Y"
replace `varlist'="26" if `varlist'=="Z"
replace `varlist'="-1" if `varlist'=="a"
replace `varlist'="-2" if `varlist'=="b"
replace `varlist'="-3" if `varlist'=="c"
replace `varlist'="-4" if `varlist'=="d"
replace `varlist'="-5" if `varlist'=="e"
replace `varlist'="-6" if `varlist'=="f"
replace `varlist'="-7" if `varlist'=="g"
replace `varlist'="-8" if `varlist'=="h"
replace `varlist'="-9" if `varlist'=="i"
replace `varlist'="-10" if `varlist'=="j"
replace `varlist'="-11" if `varlist'=="k"
replace `varlist'="-12" if `varlist'=="l"
replace `varlist'="-13" if `varlist'=="m"
replace `varlist'="-14" if `varlist'=="n"
replace `varlist'="-15" if `varlist'=="o"
replace `varlist'="-16" if `varlist'=="p"
replace `varlist'="-17" if `varlist'=="q"
replace `varlist'="-18" if `varlist'=="r"
replace `varlist'="-19" if `varlist'=="s"
replace `varlist'="-20" if `varlist'=="t"
replace `varlist'="-21" if `varlist'=="u"
replace `varlist'="-22" if `varlist'=="v"
replace `varlist'="-23" if `varlist'=="w"
replace `varlist'="-24" if `varlist'=="x"
replace `varlist'="-25" if `varlist'=="y"
replace `varlist'="-26" if `varlist'=="z"
end