#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 */
scalar_t__ islower(char);
scalar_t__ isupper(char);
int /*<<< orphan*/ printf(char *, char *);
int /*<<< orphan*/ scanf(char *, char *);
char tolower(char);
char toupper(char);
int main() {
  char word[101];
  scanf("%100s", word);
  short lowercase_counter = 0;
  short uppercase_counter = 0;
  int i = 0;
  while (word[i]) {
    if (islower(word[i]))
      lowercase_counter++;
    else if (isupper(word[i]))
      uppercase_counter++;
    i++;
  }
  i = 0;
  if (uppercase_counter > lowercase_counter) {
    while (word[i]) {
      word[i] = toupper(word[i]);
      i++;
    }
  } else if (uppercase_counter < lowercase_counter ||
             uppercase_counter == lowercase_counter) {
    while (word[i]) {
      word[i] = tolower(word[i]);
      i++;
    }
  }
  printf("%s\n", word);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
movl   $0x0,-0x4(%rbp)
lea    -0x70(%rbp),%rsi
lea    0xe83(%rip),%rdi
call   1080 <scanf@plt>
movw   $0x0,-0x72(%rbp)
movw   $0x0,-0x74(%rbp)
movl   $0x0,-0x78(%rbp)
movslq -0x78(%rbp),%rax
cmpb   $0x0,-0x70(%rbp,%rax,1)
je     1204 <main+0xa4>
movslq -0x78(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%edi
call   1030 <islower@plt>
cmp    $0x0,%rax
je     11cd <main+0x6d>
mov    -0x72(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x72(%rbp)
jmp    11f6 <main+0x96>
movslq -0x78(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%edi
call   1070 <isupper@plt>
cmp    $0x0,%rax
je     11f1 <main+0x91>
mov    -0x74(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x74(%rbp)
jmp    11f6 <main+0x96>
mov    -0x78(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x78(%rbp)
jmp    1195 <main+0x35>
movl   $0x0,-0x78(%rbp)
movswl -0x74(%rbp),%eax
movswl -0x72(%rbp),%ecx
cmp    %ecx,%eax
jle    125a <main+0xfa>
jmp    1220 <main+0xc0>
movslq -0x78(%rbp),%rax
cmpb   $0x0,-0x70(%rbp,%rax,1)
je     1255 <main+0xf5>
movslq -0x78(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%edi
call   1040 <toupper@plt>
mov    %al,%cl
movslq -0x78(%rbp),%rax
mov    %cl,-0x70(%rbp,%rax,1)
mov    -0x78(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x78(%rbp)
jmp    1220 <main+0xc0>
jmp    12be <main+0x15e>
movswl -0x74(%rbp),%eax
movswl -0x72(%rbp),%ecx
cmp    %ecx,%eax
jl     127a <main+0x11a>
movswl -0x74(%rbp),%eax
movswl -0x72(%rbp),%ecx
cmp    %ecx,%eax
jne    12b9 <main+0x159>
jmp    127f <main+0x11f>
movslq -0x78(%rbp),%rax
cmpb   $0x0,-0x70(%rbp,%rax,1)
je     12b4 <main+0x154>
movslq -0x78(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%edi
call   1060 <tolower@plt>
mov    %al,%cl
movslq -0x78(%rbp),%rax
mov    %cl,-0x70(%rbp,%rax,1)
mov    -0x78(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x78(%rbp)
jmp    127f <main+0x11f>
jmp    12b9 <main+0x159>
jmp    12be <main+0x15e>
lea    -0x70(%rbp),%rsi
lea    0xd3d(%rip),%rdi
call   1050 <printf@plt>
xor    %eax,%eax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r14
push   %rbx
sub    $0x70,%rsp
lea    0xe91(%rip),%rdi
mov    %rsp,%rsi
call   1080 <scanf@plt>
mov    (%rsp),%al
test   %al,%al
je     1226 <main+0xc6>
lea    0x1(%rsp),%rbx
xor    %r14d,%r14d
xor    %ebp,%ebp
jmp    11ad <main+0x4d>
xchg   %ax,%ax
movsbl -0x1(%rbx),%edi
call   1070 <isupper@plt>
cmp    $0x1,%rax
sbb    $0xffff,%r14w
movzbl (%rbx),%eax
add    $0x1,%rbx
test   %al,%al
je     11bf <main+0x5f>
movsbl %al,%edi
call   1030 <islower@plt>
test   %rax,%rax
je     1190 <main+0x30>
add    $0x1,%ebp
jmp    11a2 <main+0x42>
mov    (%rsp),%al
cmp    %bp,%r14w
jle    11f8 <main+0x98>
test   %al,%al
je     1226 <main+0xc6>
lea    0x1(%rsp),%rbx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsbl %al,%edi
call   1040 <toupper@plt>
mov    %al,-0x1(%rbx)
movzbl (%rbx),%eax
add    $0x1,%rbx
test   %al,%al
jne    11e0 <main+0x80>
jmp    1226 <main+0xc6>
test   %al,%al
je     1226 <main+0xc6>
lea    0x1(%rsp),%rbx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsbl %al,%edi
call   1060 <tolower@plt>
mov    %al,-0x1(%rbx)
movzbl (%rbx),%eax
add    $0x1,%rbx
test   %al,%al
jne    1210 <main+0xb0>
lea    0xdd9(%rip),%rdi
mov    %rsp,%rsi
call   1050 <printf@plt>
xor    %eax,%eax
add    $0x70,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [6 x i8] c"%100s\00"
@.str.1 = [4 x i8] c"%s\0A\00"
define i32 @main() {
%1 = alloca [101 x i8]
%2 = getelementptr inbounds [101 x i8], [101 x i8]* %1, i64 0, i64 0
%3 = call i32 @scanf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str, i64 0, i64 0), i8* %2)
%4 = load i8, i8* %2
%5 = icmp eq i8 %4, 0
br i1 %5, label %53, label %6
6: ; preds = %0, %22
%7 = phi i64 [ %25, %22 ], [ 0, %0 ]
%8 = phi i8 [ %27, %22 ], [ %4, %0 ]
%9 = phi i8* [ %26, %22 ], [ %2, %0 ]
%10 = phi i16 [ %24, %22 ], [ 0, %0 ]
%11 = phi i16 [ %23, %22 ], [ 0, %0 ]
%12 = call i64 @islower(i8 signext %8)
%13 = icmp eq i64 %12, 0
br i1 %13, label %16, label %14
14: ; preds = %6
%15 = add i16 %11, 1
br label %22
16: ; preds = %6
%17 = load i8, i8* %9
%18 = call i64 @isupper(i8 signext %17)
%19 = icmp ne i64 %18, 0
%20 = zext i1 %19 to i16
%21 = add i16 %10, %20
br label %22
22: ; preds = %16, %14
%23 = phi i16 [ %15, %14 ], [ %11, %16 ]
%24 = phi i16 [ %10, %14 ], [ %21, %16 ]
%25 = add nuw i64 %7, 1
%26 = getelementptr inbounds [101 x i8], [101 x i8]* %1, i64 0, i64 %25
%27 = load i8, i8* %26
%28 = icmp eq i8 %27, 0
br i1 %28, label %29, label %6
29: ; preds = %22
%30 = icmp sgt i16 %24, %23
%31 = load i8, i8* %2
%32 = icmp eq i8 %31, 0
br i1 %30, label %34, label %33
33: ; preds = %29
br i1 %32, label %53, label %44
34: ; preds = %29
br i1 %32, label %53, label %35
35: ; preds = %34, %35
%36 = phi i64 [ %40, %35 ], [ 0, %34 ]
%37 = phi i8 [ %42, %35 ], [ %31, %34 ]
%38 = phi i8* [ %41, %35 ], [ %2, %34 ]
%39 = call signext i8 @toupper(i8 signext %37)
store i8 %39, i8* %38
%40 = add nuw i64 %36, 1
%41 = getelementptr inbounds [101 x i8], [101 x i8]* %1, i64 0, i64 %40
%42 = load i8, i8* %41
%43 = icmp eq i8 %42, 0
br i1 %43, label %53, label %35
44: ; preds = %33, %44
%45 = phi i64 [ %49, %44 ], [ 0, %33 ]
%46 = phi i8 [ %51, %44 ], [ %31, %33 ]
%47 = phi i8* [ %50, %44 ], [ %2, %33 ]
%48 = call signext i8 @tolower(i8 signext %46)
store i8 %48, i8* %47
%49 = add nuw i64 %45, 1
%50 = getelementptr inbounds [101 x i8], [101 x i8]* %1, i64 0, i64 %49
%51 = load i8, i8* %50
%52 = icmp eq i8 %51, 0
br i1 %52, label %53, label %44
53: ; preds = %44, %35, %0, %33, %34
%54 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %2)
ret i32 0
}