#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 */
char atoi(char *);
int /*<<< orphan*/ printf(char *, char);
int /*<<< orphan*/ putchar(int);
int /*<<< orphan*/ scanf(char *, char *, char *);
char strlen(char *);
int main() {
  char a, d[100], b, i, bgun = 0;
  scanf("%hhd.%s", &a, d);
  for (i = 0; i < strlen(d); i++)
    if (d[i] == 101) {
      b = atoi(d + i + 1);
      d[i] = 0;
    }
  if (a) {
    printf("%hhd", a);
    bgun = 1;
  }
  for (i = 0; i < b; i++) {
    a = (i < strlen(d)) ? d[i] : 48;
    if (bgun || a ^ 48) {
      putchar(a);
      bgun = 1;
    }
  }
  if (!bgun)
    putchar(48);
  if (i < strlen(d) && (d[i] ^ 48 || strlen(d) ^ 1)) {
    putchar(46);
    for (; i < strlen(d); i++)
      putchar(d[i]);
  }
  putchar(10);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
movl   $0x0,-0x4(%rbp)
movb   $0x0,-0x73(%rbp)
lea    -0x70(%rbp),%rdx
lea    0xe8f(%rip),%rdi
lea    -0x5(%rbp),%rsi
call   1060 <scanf@plt>
movb   $0x0,-0x72(%rbp)
movsbl -0x72(%rbp),%eax
mov    %eax,-0x78(%rbp)
lea    -0x70(%rbp),%rdi
call   1040 <strlen@plt>
mov    %al,%cl
mov    -0x78(%rbp),%eax
movsbl %cl,%ecx
cmp    %ecx,%eax
jge    11e6 <main+0x96>
movsbq -0x72(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%eax
cmp    $0x65,%eax
jne    11d4 <main+0x84>
lea    -0x70(%rbp),%rdi
movsbl -0x72(%rbp),%eax
cltq
add    %rax,%rdi
add    $0x1,%rdi
call   1070 <atoi@plt>
mov    %al,-0x71(%rbp)
movsbq -0x72(%rbp),%rax
movb   $0x0,-0x70(%rbp,%rax,1)
jmp    11d9 <main+0x89>
mov    -0x72(%rbp),%al
add    $0x1,%al
mov    %al,-0x72(%rbp)
jmp    117e <main+0x2e>
cmpb   $0x0,-0x5(%rbp)
je     1204 <main+0xb4>
lea    0xe11(%rip),%rdi
movsbl -0x5(%rbp),%esi
call   1050 <printf@plt>
movb   $0x1,-0x73(%rbp)
movb   $0x0,-0x72(%rbp)
movsbl -0x72(%rbp),%eax
movsbl -0x71(%rbp),%ecx
cmp    %ecx,%eax
jge    1299 <main+0x149>
movsbl -0x72(%rbp),%eax
mov    %eax,-0x7c(%rbp)
lea    -0x70(%rbp),%rdi
call   1040 <strlen@plt>
mov    %al,%cl
mov    -0x7c(%rbp),%eax
movsbl %cl,%ecx
cmp    %ecx,%eax
jge    124a <main+0xfa>
movsbq -0x72(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%eax
mov    %eax,-0x80(%rbp)
jmp    1257 <main+0x107>
mov    $0x30,%eax
mov    %eax,-0x80(%rbp)
jmp    1257 <main+0x107>
mov    -0x80(%rbp),%eax
mov    %al,-0x5(%rbp)
movsbl -0x73(%rbp),%eax
cmp    $0x0,%eax
jne    127a <main+0x12a>
movsbl -0x5(%rbp),%eax
xor    $0x30,%eax
cmp    $0x0,%eax
je     1287 <main+0x137>
movsbl -0x5(%rbp),%edi
call   1030 <putchar@plt>
movb   $0x1,-0x73(%rbp)
jmp    128c <main+0x13c>
mov    -0x72(%rbp),%al
add    $0x1,%al
mov    %al,-0x72(%rbp)
jmp    1208 <main+0xb8>
cmpb   $0x0,-0x73(%rbp)
jne    12ad <main+0x15d>
mov    $0x30,%edi
call   1030 <putchar@plt>
movsbl -0x72(%rbp),%eax
mov    %eax,-0x84(%rbp)
lea    -0x70(%rbp),%rdi
call   1040 <strlen@plt>
mov    %al,%cl
mov    -0x84(%rbp),%eax
movsbl %cl,%ecx
cmp    %ecx,%eax
jge    1352 <main+0x202>
movsbq -0x72(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%eax
xor    $0x30,%eax
cmp    $0x0,%eax
jne    1301 <main+0x1b1>
lea    -0x70(%rbp),%rdi
call   1040 <strlen@plt>
movsbl %al,%eax
xor    $0x1,%eax
cmp    $0x0,%eax
je     1352 <main+0x202>
mov    $0x2e,%edi
call   1030 <putchar@plt>
movsbl -0x72(%rbp),%eax
mov    %eax,-0x88(%rbp)
lea    -0x70(%rbp),%rdi
call   1040 <strlen@plt>
mov    %al,%cl
mov    -0x88(%rbp),%eax
movsbl %cl,%ecx
cmp    %ecx,%eax
jge    134d <main+0x1fd>
movsbq -0x72(%rbp),%rax
movsbl -0x70(%rbp,%rax,1),%edi
call   1030 <putchar@plt>
mov    -0x72(%rbp),%al
add    $0x1,%al
mov    %al,-0x72(%rbp)
jmp    130b <main+0x1bb>
jmp    1352 <main+0x202>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x80,%rsp
lea    0xe9a(%rip),%rdi
lea    0xf(%rsp),%rsi
lea    0x10(%rsp),%rbx
mov    %rbx,%rdx
call   1060 <scanf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
test   %al,%al
jle    11d0 <main+0x80>
lea    0x11(%rsp),%rbx
xor    %ebp,%ebp
lea    0x10(%rsp),%r15
jmp    11b9 <main+0x69>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x1,%rbp
mov    %r15,%rdi
call   1040 <strlen@plt>
movsbq %al,%rax
add    $0x1,%rbx
cmp    %rax,%rbp
jge    11d0 <main+0x80>
cmpb   $0x65,-0x1(%rbx)
jne    11a0 <main+0x50>
mov    %rbx,%rdi
call   1070 <atoi@plt>
mov    %eax,%r14d
movb   $0x0,-0x1(%rbx)
jmp    11a0 <main+0x50>
mov    0xf(%rsp),%al
test   %al,%al
je     123d <main+0xed>
movsbl %al,%esi
lea    0xe26(%rip),%rdi
call   1050 <printf@plt>
mov    $0x1,%bpl
test   %r14b,%r14b
jle    1244 <main+0xf4>
movzbl %r14b,%r12d
xor    %ebx,%ebx
lea    0x10(%rsp),%r15
jmp    1214 <main+0xc4>
nopl   0x0(%rax)
movsbl %al,%edi
call   1030 <putchar@plt>
mov    $0x1,%bpl
add    $0x1,%rbx
cmp    %rbx,%r12
je     1247 <main+0xf7>
mov    %r15,%rdi
call   1040 <strlen@plt>
movsbq %al,%rcx
mov    $0x30,%al
cmp    %rcx,%rbx
jge    122c <main+0xdc>
movzbl 0x10(%rsp,%rbx,1),%eax
mov    %al,0xf(%rsp)
test   %bpl,%bpl
jne    1200 <main+0xb0>
cmp    $0x30,%al
jne    1200 <main+0xb0>
xor    %ebp,%ebp
jmp    120b <main+0xbb>
xor    %ebp,%ebp
test   %r14b,%r14b
jg     11ef <main+0x9f>
xor    %r14d,%r14d
test   %bpl,%bpl
jne    1256 <main+0x106>
mov    $0x30,%edi
call   1030 <putchar@plt>
lea    0x10(%rsp),%rdi
call   1040 <strlen@plt>
cmp    %al,%r14b
jge    12bb <main+0x16b>
movzbl %r14b,%ebp
cmpb   $0x30,0x10(%rsp,%rbp,1)
jne    127e <main+0x12e>
lea    0x10(%rsp),%rdi
call   1040 <strlen@plt>
cmp    $0x1,%al
je     12bb <main+0x16b>
mov    $0x2e,%edi
call   1030 <putchar@plt>
lea    0x10(%rsp),%rdi
call   1040 <strlen@plt>
cmp    %al,%r14b
jge    12bb <main+0x16b>
lea    0x10(%rsp),%rbx
nopl   0x0(%rax)
movsbl 0x10(%rsp,%rbp,1),%edi
call   1030 <putchar@plt>
add    $0x1,%rbp
mov    %rbx,%rdi
call   1040 <strlen@plt>
cmp    %bpl,%al
jg     12a0 <main+0x150>
mov    $0xa,%edi
call   1030 <putchar@plt>
xor    %eax,%eax
add    $0x80,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [8 x i8] c"%hhd.%s\00"
@.str.1 = [5 x i8] c"%hhd\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i8
%3 = alloca [100 x i8]
%4 = alloca i8
%5 = alloca i8
%6 = alloca i8
store i32 0, i32* %1
store i8 0, i8* %6
%7 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%8 = call i32 @scanf(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* %2, i8* %7)
store i8 0, i8* %5
br label %9
9: ; preds = %35, %0
%10 = load i8, i8* %5
%11 = sext i8 %10 to i32
%12 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%13 = call signext i8 @strlen(i8* %12)
%14 = sext i8 %13 to i32
%15 = icmp slt i32 %11, %14
br i1 %15, label %16, label %38
16: ; preds = %9
%17 = load i8, i8* %5
%18 = sext i8 %17 to i64
%19 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %18
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = icmp eq i32 %21, 101
br i1 %22, label %23, label %34
23: ; preds = %16
%24 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%25 = load i8, i8* %5
%26 = sext i8 %25 to i32
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %24, i64 %27
%29 = getelementptr inbounds i8, i8* %28, i64 1
%30 = call signext i8 @atoi(i8* %29)
store i8 %30, i8* %4
%31 = load i8, i8* %5
%32 = sext i8 %31 to i64
%33 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %32
store i8 0, i8* %33
br label %34
34: ; preds = %23, %16
br label %35
35: ; preds = %34
%36 = load i8, i8* %5
%37 = add i8 %36, 1
store i8 %37, i8* %5
br label %9
38: ; preds = %9
%39 = load i8, i8* %2
%40 = icmp ne i8 %39, 0
br i1 %40, label %41, label %44
41: ; preds = %38
%42 = load i8, i8* %2
%43 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i8 signext %42)
store i8 1, i8* %6
br label %44
44: ; preds = %41, %38
store i8 0, i8* %5
br label %45
45: ; preds = %81, %44
%46 = load i8, i8* %5
%47 = sext i8 %46 to i32
%48 = load i8, i8* %4
%49 = sext i8 %48 to i32
%50 = icmp slt i32 %47, %49
br i1 %50, label %51, label %84
51: ; preds = %45
%52 = load i8, i8* %5
%53 = sext i8 %52 to i32
%54 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%55 = call signext i8 @strlen(i8* %54)
%56 = sext i8 %55 to i32
%57 = icmp slt i32 %53, %56
br i1 %57, label %58, label %64
58: ; preds = %51
%59 = load i8, i8* %5
%60 = sext i8 %59 to i64
%61 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %60
%62 = load i8, i8* %61
%63 = sext i8 %62 to i32
br label %65
64: ; preds = %51
br label %65
65: ; preds = %64, %58
%66 = phi i32 [ %63, %58 ], [ 48, %64 ]
%67 = trunc i32 %66 to i8
store i8 %67, i8* %2
%68 = load i8, i8* %6
%69 = sext i8 %68 to i32
%70 = icmp ne i32 %69, 0
br i1 %70, label %76, label %71
71: ; preds = %65
%72 = load i8, i8* %2
%73 = sext i8 %72 to i32
%74 = xor i32 %73, 48
%75 = icmp ne i32 %74, 0
br i1 %75, label %76, label %80
76: ; preds = %71, %65
%77 = load i8, i8* %2
%78 = sext i8 %77 to i32
%79 = call i32 @putchar(i32 %78)
store i8 1, i8* %6
br label %80
80: ; preds = %76, %71
br label %81
81: ; preds = %80
%82 = load i8, i8* %5
%83 = add i8 %82, 1
store i8 %83, i8* %5
br label %45
84: ; preds = %45
%85 = load i8, i8* %6
%86 = icmp ne i8 %85, 0
br i1 %86, label %89, label %87
87: ; preds = %84
%88 = call i32 @putchar(i32 48)
br label %89
89: ; preds = %87, %84
%90 = load i8, i8* %5
%91 = sext i8 %90 to i32
%92 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%93 = call signext i8 @strlen(i8* %92)
%94 = sext i8 %93 to i32
%95 = icmp slt i32 %91, %94
br i1 %95, label %96, label %130
96: ; preds = %89
%97 = load i8, i8* %5
%98 = sext i8 %97 to i64
%99 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %98
%100 = load i8, i8* %99
%101 = sext i8 %100 to i32
%102 = xor i32 %101, 48
%103 = icmp ne i32 %102, 0
br i1 %103, label %110, label %104
104: ; preds = %96
%105 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%106 = call signext i8 @strlen(i8* %105)
%107 = sext i8 %106 to i32
%108 = xor i32 %107, 1
%109 = icmp ne i32 %108, 0
br i1 %109, label %110, label %130
110: ; preds = %104, %96
%111 = call i32 @putchar(i32 46)
br label %112
112: ; preds = %126, %110
%113 = load i8, i8* %5
%114 = sext i8 %113 to i32
%115 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%116 = call signext i8 @strlen(i8* %115)
%117 = sext i8 %116 to i32
%118 = icmp slt i32 %114, %117
br i1 %118, label %119, label %129
119: ; preds = %112
%120 = load i8, i8* %5
%121 = sext i8 %120 to i64
%122 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 %121
%123 = load i8, i8* %122
%124 = sext i8 %123 to i32
%125 = call i32 @putchar(i32 %124)
br label %126
126: ; preds = %119
%127 = load i8, i8* %5
%128 = add i8 %127, 1
store i8 %128, i8* %5
br label %112
129: ; preds = %112
br label %130
130: ; preds = %129, %104, %89
%131 = call i32 @putchar(i32 10)
ret i32 0
}

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