Code converts lowercase to uppercase. If the character is not lowercase, it returns the original character.
The expression ('A'+c1-'a')performs the conversion. c1-awill give the 0-position of the character in the alphabet. By adding this value to A, you get an uppercase equidistant c1.
: c1 'b', c1-'a' 1, "b" 0 " 1 " A " " B ",