#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ insertion(long long *, long long);
int /*<<< orphan*/ printf(char *, long long);
int /*<<< orphan*/ scanf(char *, long long *, ...);
int main() {
  long long int i, j, m, k, n, cost = 0;
  long long int arr[100000];
  scanf("%lld%lld", &n, &k);
  for (i = 0; i < n; i++) {
    scanf("%lld", &arr[i]);
  }
  insertion(arr, n);
  m = 1;
  cost = 0;
  for (i = 0; i < n; i++) {
    cost = cost + arr[n - i - 1] * m;
    if (i % k == k - 1) {
      m++;
    }
  }
  printf("%lld", cost);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xc3540,%rsp
movl   $0x0,-0x4(%rbp)
movq   $0x0,-0x38(%rbp)
lea    0xeaf(%rip),%rdi
lea    -0x30(%rbp),%rsi
lea    -0x28(%rbp),%rdx
mov    $0x0,%al
call   1050 <scanf@plt>
movq   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmp    -0x30(%rbp),%rax
jge    11a7 <main+0x77>
mov    -0x10(%rbp),%rax
lea    -0xc3540(%rbp),%rsi
shl    $0x3,%rax
add    %rax,%rsi
lea    0xe75(%rip),%rdi
mov    $0x0,%al
call   1050 <scanf@plt>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1168 <main+0x38>
lea    -0xc3540(%rbp),%rdi
mov    -0x30(%rbp),%rsi
call   1040 <insertion@plt>
movq   $0x1,-0x20(%rbp)
movq   $0x0,-0x38(%rbp)
movq   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmp    -0x30(%rbp),%rax
jge    123e <main+0x10e>
mov    -0x38(%rbp),%rax
mov    -0x30(%rbp),%rcx
sub    -0x10(%rbp),%rcx
sub    $0x1,%rcx
mov    -0xc3540(%rbp,%rcx,8),%rcx
ff
imul   -0x20(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x10(%rbp),%rax
cqto
idivq  -0x28(%rbp)
mov    -0x28(%rbp),%rax
sub    $0x1,%rax
cmp    %rax,%rdx
jne    1228 <main+0xf8>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    122d <main+0xfd>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11cf <main+0x9f>
mov    -0x38(%rbp),%rsi
lea    0xdbb(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0xc3540,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %rbx
sub    $0xc3510,%rsp
lea    0xebd(%rip),%rdi
mov    %rsp,%rsi
lea    0x8(%rsp),%rdx
xor    %eax,%eax
call   1050 <scanf@plt>
mov    (%rsp),%rsi
test   %rsi,%rsi
jle    118e <main+0x5e>
lea    0x10(%rsp),%r15
lea    0xe9d(%rip),%r14
xor    %ebx,%ebx
nopl   0x0(%rax)
mov    %r14,%rdi
mov    %r15,%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
add    $0x1,%rbx
mov    (%rsp),%rsi
add    $0x8,%r15
cmp    %rsi,%rbx
jl     1170 <main+0x40>
lea    0x10(%rsp),%rdi
call   1040 <insertion@plt>
mov    (%rsp),%r8
test   %r8,%r8
jle    11c9 <main+0x99>
cmp    $0x1,%r8
jne    11e6 <main+0xb6>
mov    $0xffffffffffffffff,%r15
mov    $0x1,%ebx
xor    %esi,%esi
test   $0x1,%r8b
je     11cb <main+0x9b>
add    %r15,%r8
imul   0x10(%rsp,%r8,8),%rbx
add    %rbx,%rsi
jmp    11cb <main+0x9b>
xor    %esi,%esi
lea    0xe32(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0xc3510,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret
mov    0x8(%rsp),%r9
lea    -0x1(%r9),%r10
mov    %r8,%r11
and    $0xfffffffffffffffe,%r11
lea    (%rsp,%r8,8),%r14
add    $0x10,%r14
mov    $0x1,%ebx
mov    $0xffffffffffffffff,%r15
xor    %esi,%esi
xor    %ecx,%ecx
jmp    1233 <main+0x103>
mov    %rcx,%rax
cqto
idiv   %r9
add    %rdi,%rsi
xor    %eax,%eax
cmp    %r10,%rdx
sete   %al
add    %rax,%rbx
add    $0xfffffffffffffffe,%r15
add    $0x1,%rcx
cmp    %r11,%rcx
je     11b5 <main+0x85>
mov    (%r14,%r15,8),%rdi
imul   %rbx,%rdi
mov    %rcx,%rax
or     %r9,%rax
shr    $0x20,%rax
je     1260 <main+0x130>
mov    %rcx,%rax
cqto
idiv   %r9
jmp    1267 <main+0x137>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %ecx,%eax
xor    %edx,%edx
div    %r9d
add    %rdi,%rsi
xor    %eax,%eax
cmp    %r10,%rdx
sete   %al
add    %rax,%rbx
mov    -0x8(%r14,%r15,8),%rdi
imul   %rbx,%rdi
add    $0x1,%rcx
mov    %rcx,%rax
or     %r9,%rax
shr    $0x20,%rax
jne    1210 <main+0xe0>
mov    %ecx,%eax
xor    %edx,%edx
div    %r9d
jmp    1218 <main+0xe8>

LLVM IR (-O0):
@.str = [9 x i8] c"%lld%lld\00"
@.str.1 = [5 x i8] c"%lld\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca [100000 x i64]
store i32 0, i32* %1
store i64 0, i64* %7
%9 = call i32 (i8*, i64*, ...) @scanf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i64* %6, i64* %5)
store i64 0, i64* %2
br label %10
10: ; preds = %18, %0
%11 = load i64, i64* %2
%12 = load i64, i64* %6
%13 = icmp slt i64 %11, %12
br i1 %13, label %14, label %21
14: ; preds = %10
%15 = load i64, i64* %2
%16 = getelementptr inbounds [100000 x i64], [100000 x i64]* %8, i64 0, i64 %15
%17 = call i32 (i8*, i64*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64* %16)
br label %18
18: ; preds = %14
%19 = load i64, i64* %2
%20 = add nsw i64 %19, 1
store i64 %20, i64* %2
br label %10
21: ; preds = %10
%22 = getelementptr inbounds [100000 x i64], [100000 x i64]* %8, i64 0, i64 0
%23 = load i64, i64* %6
%24 = call i32 @insertion(i64* %22, i64 %23)
store i64 1, i64* %4
store i64 0, i64* %7
store i64 0, i64* %2
br label %25
25: ; preds = %50, %21
%26 = load i64, i64* %2
%27 = load i64, i64* %6
%28 = icmp slt i64 %26, %27
br i1 %28, label %29, label %53
29: ; preds = %25
%30 = load i64, i64* %7
%31 = load i64, i64* %6
%32 = load i64, i64* %2
%33 = sub nsw i64 %31, %32
%34 = sub nsw i64 %33, 1
%35 = getelementptr inbounds [100000 x i64], [100000 x i64]* %8, i64 0, i64 %34
%36 = load i64, i64* %35
%37 = load i64, i64* %4
%38 = mul nsw i64 %36, %37
%39 = add nsw i64 %30, %38
store i64 %39, i64* %7
%40 = load i64, i64* %2
%41 = load i64, i64* %5
%42 = srem i64 %40, %41
%43 = load i64, i64* %5
%44 = sub nsw i64 %43, 1
%45 = icmp eq i64 %42, %44
br i1 %45, label %46, label %49
46: ; preds = %29
%47 = load i64, i64* %4
%48 = add nsw i64 %47, 1
store i64 %48, i64* %4
br label %49
49: ; preds = %46, %29
br label %50
50: ; preds = %49
%51 = load i64, i64* %2
%52 = add nsw i64 %51, 1
store i64 %52, i64* %2
br label %25
53: ; preds = %25
%54 = load i64, i64* %7
%55 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64 %54)
ret i32 0
}

LLVM IR (-O2):
@.str = [9 x i8] c"%lld%lld\00"
@.str.1 = [5 x i8] c"%lld\00"
define i32 @main() {
%1 = alloca i64
%2 = alloca i64
%3 = alloca [100000 x i64]
%4 = bitcast i64* %1 to i8*
%5 = bitcast i64* %2 to i8*
%6 = bitcast [100000 x i64]* %3 to i8*
%7 = call i32 (i8*, i64*, ...) @scanf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i64* %2, i64* %1)
%8 = load i64, i64* %2
%9 = icmp sgt i64 %8, 0
br i1 %9, label %10, label %17
10: ; preds = %0, %10
%11 = phi i64 [ %14, %10 ], [ 0, %0 ]
%12 = getelementptr inbounds [100000 x i64], [100000 x i64]* %3, i64 0, i64 %11
%13 = call i32 (i8*, i64*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64* %12)
%14 = add nuw nsw i64 %11, 1
%15 = load i64, i64* %2
%16 = icmp slt i64 %14, %15
br i1 %16, label %10, label %17
17: ; preds = %10, %0
%18 = phi i64 [ %8, %0 ], [ %15, %10 ]
%19 = getelementptr inbounds [100000 x i64], [100000 x i64]* %3, i64 0, i64 0
%20 = call i32 @insertion(i64* %19, i64 %18)
%21 = load i64, i64* %2
%22 = icmp sgt i64 %21, 0
br i1 %22, label %23, label %73
23: ; preds = %17
%24 = load i64, i64* %1
%25 = add nsw i64 %24, -1
%26 = and i64 %21, 1
%27 = icmp eq i64 %21, 1
br i1 %27, label %61, label %28
28: ; preds = %23
%29 = and i64 %21, -2
br label %30
30: ; preds = %30, %28
%31 = phi i64 [ 0, %28 ], [ %51, %30 ]
%32 = phi i64 [ 1, %28 ], [ %55, %30 ]
%33 = phi i64 [ 0, %28 ], [ %56, %30 ]
%34 = phi i64 [ 0, %28 ], [ %57, %30 ]
%35 = xor i64 %33, -1
%36 = add i64 %21, %35
%37 = getelementptr inbounds [100000 x i64], [100000 x i64]* %3, i64 0, i64 %36
%38 = load i64, i64* %37
%39 = mul nsw i64 %38, %32
%40 = add nsw i64 %39, %31
%41 = srem i64 %33, %24
%42 = icmp eq i64 %41, %25
%43 = zext i1 %42 to i64
%44 = add nuw nsw i64 %32, %43
%45 = or i64 %33, 1
%46 = sub nuw nsw i64 -2, %33
%47 = add i64 %21, %46
%48 = getelementptr inbounds [100000 x i64], [100000 x i64]* %3, i64 0, i64 %47
%49 = load i64, i64* %48
%50 = mul nsw i64 %49, %44
%51 = add nsw i64 %50, %40
%52 = srem i64 %45, %24
%53 = icmp eq i64 %52, %25
%54 = zext i1 %53 to i64
%55 = add nuw nsw i64 %44, %54
%56 = add nuw nsw i64 %33, 2
%57 = add i64 %34, 2
%58 = icmp eq i64 %57, %29
br i1 %58, label %59, label %30
59: ; preds = %30
%60 = sub nuw i64 -3, %33
br label %61
61: ; preds = %59, %23
%62 = phi i64 [ undef, %23 ], [ %51, %59 ]
%63 = phi i64 [ 0, %23 ], [ %51, %59 ]
%64 = phi i64 [ 1, %23 ], [ %55, %59 ]
%65 = phi i64 [ -1, %23 ], [ %60, %59 ]
%66 = icmp eq i64 %26, 0
br i1 %66, label %73, label %67
67: ; preds = %61
%68 = add i64 %21, %65
%69 = getelementptr inbounds [100000 x i64], [100000 x i64]* %3, i64 0, i64 %68
%70 = load i64, i64* %69
%71 = mul nsw i64 %70, %64
%72 = add nsw i64 %71, %63
br label %73
73: ; preds = %67, %61, %17
%74 = phi i64 [ 0, %17 ], [ %62, %61 ], [ %72, %67 ]
%75 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64 %74)
ret i32 0
}