Imports System

Module Program
    Sub Main(args As String())

        Dim K As Integer = Integer.Parse(Console.ReadLine())
        Dim S As String = Console.ReadLine()

        Dim ans As String = ""
        If Len(S) <= K Then
            ans = S
        Else
            ans = Left(S, K) & "..."
        End If

        Console.WriteLine(ans)

    End Sub
End Module
