print$%++?uc:"\U@_",$/for@_=<>=~/./g