program main
  implicit none
  character(10) :: s1,s2,s3,s
  character(3) :: ans

  read(*,*) s1,s2,s3

  ans(1:1) = char(ichar(s1(1:1))-32)
  ans(2:2) = char(ichar(s2(1:1))-32)
  ans(3:3) = char(ichar(s3(1:1))-32)

  write(*,*) ans
end program main
