main = do
    k <- getLine
    str <- getLine
    (putStrLn . judge (read k)) str


judge::Int->String->String
judge k str
    | (len <= k) =  str
    | otherwise = (take k str) ++ "..."
    where len = length str