import qualified Data.Text as T
import qualified Data.Text.IO as T

main :: IO ()
main = do
    n <- readLn
    s <- T.getLine
    putStrLn $ solve n s

solve :: Int -> T.Text -> String
solve n s = T.unpack (T.append (T.drop n s) (T.take n s))