program TaoXauTot;
var
    S, XauTot: string;
    k, i: integer;
begin
    // Mở tệp đầu vào
    assign(input, 'STRING.INP');
    reset(input);

    // Đọc dữ liệu từ tệp đầu vào
    readln(S);
    readln(k);

    // Tạo xâu tốt từ xâu S
    XauTot := '';
    i := 1;
    while i <= length(S) do
    begin
        // Lấy một từ từ xâu S
        XauTot := XauTot + copy(S, i, k);

        // Bỏ qua các ký tự không cần thiết
        i := i + k;
    end;

    // Đóng tệp đầu vào
    close(input);

    // In xâu tốt ra màn hình
    writeln(XauTot);

    // Ghi xâu tốt ra tệp kết quả
    assign(output, 'STRING.OUT');
    rewrite(output);
    writeln(XauTot);
    close(output);
end.