program main
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: tobig = ichar('A') - ichar('a')
    character(10):: a,b,c
    read*, a,b,c
    print'(a)', char(ichar(a(1:1))+tobig) // char(ichar(b(1:1))+tobig) // char(ichar(c(1:1))+tobig)
end program main