program main
  integer::n,i,j,k,ans,le
  !integer,allocatable::
  character(10000)::s
read(*,*)n
read(*,*)s
le=len(s)
write(*,*) le
do i=1,n
  do j=1,le
    select case(s(j:j))
    case('A')
      s(j:j)='B'
    case('B')
      s(j:j)='C'
    case('C')
      s(j:j)='D'
    case('D')
      s(j:j)='E'
    case('E')
      s(j:j)='F'
    case('F')
      s(j:j)='G'
    case('G')
      s(j:j)='H'
    case('H')
      s(j:j)='I'
    case('I')
      s(j:j)='J'
    case('J')
      s(j:j)='K'
    case('K')
      s(j:j)='L'
    case('L')
      s(j:j)='M'
    case('M')
      s(j:j)='N'
    case('N')
      s(j:j)='O'
    case('O')
      s(j:j)='P'
    case('P')
      s(j:j)='Q'
    case('Q')
      s(j:j)='R'
    case('R')
      s(j:j)='S'
    case('S')
      s(j:j)='T'
    case('T')
      s(j:j)='U'
    case('U')
      s(j:j)='V'
    case('V')
      s(j:j)='W'
    case('W')
      s(j:j)='X'
    case('X')
      s(j:j)='Y'
    case('Y')
      s(j:j)='Z'
    case('Z')
      s(j:j)='A'
    end select
  end do
end do
write(*,'(a)') s
stop
end program
