program prob1
    implicit none
    integer::i, j
    character(len=10)::s1, s2, s3
    read(*,*) s1, s2, s3

    write(*,'(3a)') char(ichar(s1(1:1)) - 32), char(ichar(s2(1:1)) - 32), char(ichar(s3(1:1)) - 32)
    stop
end program