#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*/ printf(char *, int);
int /*<<< orphan*/ scanf(char *, int *, ...);
int main() {
  int n, m, i, j, s = 0, l[100] = {0}, mv, mi, x;
  scanf("%d %d", &n, &m);
  for (i = 0; i < n; ++i) {
    scanf("%d", &x);
    if (x < 0) {
      x = -x;
      mv = 1001;
      mi = -1;
      for (j = 0; j < m; ++j) {
        if (l[j] < mv) {
          mv = l[j];
          mi = j;
        }
      }
      if (x > mv) {
        s += (x - mv);
        l[mi] = x;
      }
    }
  }
  printf("%d", s);
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1c0,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x18(%rbp)
lea    -0x1b0(%rbp),%rdi
xor    %esi,%esi
mov    $0x190,%edx
call   1040 <memset@plt>
lea    0xe9d(%rip),%rdi
lea    -0x8(%rbp),%rsi
lea    -0xc(%rbp),%rdx
mov    $0x0,%al
call   1050 <scanf@plt>
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1270 <main+0x140>
lea    0xe77(%rip),%rdi
lea    -0x1bc(%rbp),%rsi
mov    $0x0,%al
call   1050 <scanf@plt>
cmpl   $0x0,-0x1bc(%rbp)
jge    125d <main+0x12d>
xor    %eax,%eax
sub    -0x1bc(%rbp),%eax
mov    %eax,-0x1bc(%rbp)
movl   $0x3e9,-0x1b4(%rbp)
movl   $0xffffffff,-0x1b8(%rbp)
ff ff ff
movl   $0x0,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1220 <main+0xf0>
movslq -0x14(%rbp),%rax
mov    -0x1b0(%rbp,%rax,4),%eax
cmp    -0x1b4(%rbp),%eax
jge    120d <main+0xdd>
movslq -0x14(%rbp),%rax
mov    -0x1b0(%rbp,%rax,4),%eax
mov    %eax,-0x1b4(%rbp)
mov    -0x14(%rbp),%eax
mov    %eax,-0x1b8(%rbp)
jmp    1212 <main+0xe2>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    11d0 <main+0xa0>
mov    -0x1bc(%rbp),%eax
cmp    -0x1b4(%rbp),%eax
jle    1258 <main+0x128>
mov    -0x1bc(%rbp),%eax
sub    -0x1b4(%rbp),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x1bc(%rbp),%ecx
movslq -0x1b8(%rbp),%rax
mov    %ecx,-0x1b0(%rbp,%rax,4)
jmp    125d <main+0x12d>
jmp    1262 <main+0x132>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    1179 <main+0x49>
mov    -0x18(%rbp),%esi
lea    0xd89(%rip),%rdi
call   1030 <printf@plt>
mov    -0x4(%rbp),%eax
add    $0x1c0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x1a8,%rsp
lea    0x10(%rsp),%rdi
xor    %r14d,%r14d
mov    $0x190,%edx
xor    %esi,%esi
call   1040 <memset@plt>
lea    0xea4(%rip),%rdi
lea    0x8(%rsp),%rsi
lea    0xc(%rsp),%rdx
xor    %eax,%eax
call   1050 <scanf@plt>
cmpl   $0x0,0x8(%rsp)
jle    12a0 <main+0x170>
lea    0xe84(%rip),%r15
lea    0x4(%rsp),%r12
xor    %r14d,%r14d
xor    %r13d,%r13d
jmp    119f <main+0x6f>
nopl   0x0(%rax)
add    $0x1,%r13d
cmp    0x8(%rsp),%r13d
jge    12a0 <main+0x170>
mov    %r15,%rdi
mov    %r12,%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
mov    0x4(%rsp),%r9d
test   %r9d,%r9d
jns    1190 <main+0x60>
mov    %r9d,%r8d
neg    %r8d
mov    %r8d,0x4(%rsp)
mov    0xc(%rsp),%ecx
test   %ecx,%ecx
jle    120d <main+0xdd>
lea    -0x1(%rcx),%rax
mov    %ecx,%edx
and    $0x3,%edx
cmp    $0x3,%rax
jae    1233 <main+0x103>
mov    $0x3e9,%ebp
mov    $0xffffffff,%esi
xor    %edi,%edi
test   %rdx,%rdx
je     1206 <main+0xd6>
nopl   0x0(%rax)
mov    0x10(%rsp,%rdi,4),%eax
cmp    %ebp,%eax
cmovl  %eax,%ebp
cmovl  %edi,%esi
add    $0x1,%rdi
add    $0xffffffffffffffff,%rdx
jne    11f0 <main+0xc0>
cmp    %r8d,%ebp
jge    1190 <main+0x60>
jmp    1220 <main+0xf0>
mov    $0xffffffff,%esi
mov    $0x3e9,%ebp
cmp    %r8d,%ebp
jge    1190 <main+0x60>
add    %ebp,%r9d
sub    %r9d,%r14d
movslq %esi,%rax
mov    %r8d,0x10(%rsp,%rax,4)
jmp    1190 <main+0x60>
and    $0xfffffffc,%ecx
mov    $0x3e9,%ebp
mov    $0xffffffff,%esi
xor    %edi,%edi
jmp    125b <main+0x12b>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %eax,%ebp
add    $0x4,%rdi
cmp    %rcx,%rdi
je     11e4 <main+0xb4>
mov    0x10(%rsp,%rdi,4),%eax
cmp    %ebp,%eax
cmovl  %eax,%ebp
mov    0x14(%rsp,%rdi,4),%ebx
cmovl  %edi,%esi
cmp    %ebp,%ebx
jl     1280 <main+0x150>
mov    %ebp,%ebx
jmp    1283 <main+0x153>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
lea    0x1(%rdi),%esi
mov    0x18(%rsp,%rdi,4),%eax
cmp    %ebx,%eax
jl     1290 <main+0x160>
mov    %ebx,%eax
jmp    1293 <main+0x163>
nop
lea    0x2(%rdi),%esi
mov    0x1c(%rsp,%rdi,4),%ebp
cmp    %eax,%ebp
jge    1250 <main+0x120>
lea    0x3(%rdi),%esi
jmp    1252 <main+0x122>
lea    0xd5c(%rip),%rdi
mov    %r14d,%esi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x1a8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [6 x i8] c"%d %d\00"
@.str.1 = [3 x i8] c"%d\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca [100 x i32]
%4 = alloca i32
%5 = bitcast i32* %1 to i8*
%6 = bitcast i32* %2 to i8*
%7 = bitcast [100 x i32]* %3 to i8*
%8 = bitcast i32* %4 to i8*
%9 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0), i32* %1, i32* %2)
%10 = load i32, i32* %1
%11 = icmp sgt i32 %10, 0
br i1 %11, label %12, label %99
12: ; preds = %0, %94
%13 = phi i32 [ %95, %94 ], [ 0, %0 ]
%14 = phi i32 [ %96, %94 ], [ 0, %0 ]
%15 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32* %4)
%16 = load i32, i32* %4
%17 = icmp slt i32 %16, 0
br i1 %17, label %18, label %94
18: ; preds = %12
%19 = sub nsw i32 0, %16
store i32 %19, i32* %4
%20 = load i32, i32* %2
%21 = icmp sgt i32 %20, 0
br i1 %21, label %22, label %85
22: ; preds = %18
%23 = zext i32 %20 to i64
%24 = add nsw i64 %23, -1
%25 = and i64 %23, 3
%26 = icmp ult i64 %24, 3
br i1 %26, label %64, label %27
27: ; preds = %22
%28 = and i64 %23, 4294967292
br label %29
29: ; preds = %29, %27
%30 = phi i64 [ 0, %27 ], [ %61, %29 ]
%31 = phi i32 [ -1, %27 ], [ %60, %29 ]
%32 = phi i32 [ 1001, %27 ], [ %58, %29 ]
%33 = phi i64 [ 0, %27 ], [ %62, %29 ]
%34 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %30
%35 = load i32, i32* %34
%36 = icmp slt i32 %35, %32
%37 = select i1 %36, i32 %35, i32 %32
%38 = trunc i64 %30 to i32
%39 = select i1 %36, i32 %38, i32 %31
%40 = or i64 %30, 1
%41 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %40
%42 = load i32, i32* %41
%43 = icmp slt i32 %42, %37
%44 = select i1 %43, i32 %42, i32 %37
%45 = trunc i64 %40 to i32
%46 = select i1 %43, i32 %45, i32 %39
%47 = or i64 %30, 2
%48 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %47
%49 = load i32, i32* %48
%50 = icmp slt i32 %49, %44
%51 = select i1 %50, i32 %49, i32 %44
%52 = trunc i64 %47 to i32
%53 = select i1 %50, i32 %52, i32 %46
%54 = or i64 %30, 3
%55 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %54
%56 = load i32, i32* %55
%57 = icmp slt i32 %56, %51
%58 = select i1 %57, i32 %56, i32 %51
%59 = trunc i64 %54 to i32
%60 = select i1 %57, i32 %59, i32 %53
%61 = add nuw nsw i64 %30, 4
%62 = add i64 %33, 4
%63 = icmp eq i64 %62, %28
br i1 %63, label %64, label %29
64: ; preds = %29, %22
%65 = phi i32 [ undef, %22 ], [ %58, %29 ]
%66 = phi i32 [ undef, %22 ], [ %60, %29 ]
%67 = phi i64 [ 0, %22 ], [ %61, %29 ]
%68 = phi i32 [ -1, %22 ], [ %60, %29 ]
%69 = phi i32 [ 1001, %22 ], [ %58, %29 ]
%70 = icmp eq i64 %25, 0
br i1 %70, label %85, label %71
71: ; preds = %64, %71
%72 = phi i64 [ %82, %71 ], [ %67, %64 ]
%73 = phi i32 [ %81, %71 ], [ %68, %64 ]
%74 = phi i32 [ %79, %71 ], [ %69, %64 ]
%75 = phi i64 [ %83, %71 ], [ 0, %64 ]
%76 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %72
%77 = load i32, i32* %76
%78 = icmp slt i32 %77, %74
%79 = select i1 %78, i32 %77, i32 %74
%80 = trunc i64 %72 to i32
%81 = select i1 %78, i32 %80, i32 %73
%82 = add nuw nsw i64 %72, 1
%83 = add i64 %75, 1
%84 = icmp eq i64 %83, %25
br i1 %84, label %85, label %71
85: ; preds = %64, %71, %18
%86 = phi i32 [ 1001, %18 ], [ %65, %64 ], [ %79, %71 ]
%87 = phi i32 [ -1, %18 ], [ %66, %64 ], [ %81, %71 ]
%88 = icmp slt i32 %86, %19
br i1 %88, label %89, label %94
89: ; preds = %85
%90 = add i32 %16, %86
%91 = sub i32 %13, %90
%92 = sext i32 %87 to i64
%93 = getelementptr inbounds [100 x i32], [100 x i32]* %3, i64 0, i64 %92
store i32 %19, i32* %93
br label %94
94: ; preds = %12, %89, %85
%95 = phi i32 [ %91, %89 ], [ %13, %85 ], [ %13, %12 ]
%96 = add nuw nsw i32 %14, 1
%97 = load i32, i32* %1
%98 = icmp slt i32 %96, %97
br i1 %98, label %12, label %99
99: ; preds = %94, %0
%100 = phi i32 [ 0, %0 ], [ %95, %94 ]
%101 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32 %100)
ret i32 0
}