procedure main()
every|writes(char(65to ord(reads()))|"\n")\647
end