<<>> XMesaCmplr25 : PROGRAM = { UpperCase: PROC = { c: CHARACTER _ 'a; c _ c + ('A - 'a); }; AppendChar: PROC [s: STRING, c: CHARACTER] = {}; s: STRING _ NIL; exp: INTEGER _ 2; AppendChar[s, '0 + (exp/10)]; }.