program _;
var
f: text;
k, q: integer;
s: string;
begin
assign(f, 'f.text');
rewrite(f);
writeln('k=');
readln(k);
writeln('-------');
readln(s);
q := length(s);
write(f);
close(f);
reset(f);
while not eof(f) do
begin
read(f);
end;
if q >= k then
begin
delete(s, 1, k);
writeln(s);
end
else
begin
delete(s, 1, 256);
writeln('-------', s);
end;
close(f);
end.