perl -lne'65+length()*96-unpack"%a*"or print'