procedure main() every a:=!read()&writes(char((65to ord(a))|10)) end