import Data.Char
import qualified Data.List as List

solveAns :: (Int, String) -> String
solveAns (n, str) = fhalf ++ (toLower t) : shalf where
  (fhalf, t : shalf) = List.splitAt (n - 1) str



parseInput :: [[String]] -> (Int, String)
parseInput [[x, y], [r]] = (read y :: Int, r)

main :: IO ()
main =  interact $ solveAns .  parseInput .  map words . lines