procedure main()
every a:=!read()do every writes(char(65to ord(a))|"\n")
end