program String26;
var
n,i: integer;
s,s1: string;
len: integer;
begin
readln(n,s);
len := length(s);
if len>n then
delete(s,1,len-n)
else if len<n then
begin
s1:='';
for i:=1 to n-len do
s1:=s1+'.';
insert(s1,s,1);
end;
writeln(s);
readln;
end.