#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 *_ecvt(long double, int, int *, int *);
char *_pscien(long double r, register char *s, int n, int flags) {
  int sign, dp;
  register char *s1;
  s1 = _ecvt(r, n + 1, &dp, &sign);
  if (sign)
    *s++ = '-';
  else if (flags & 0x0002)
    *s++ = '+';
  else if (flags & 0x0004)
    *s++ = ' ';
  *s++ = *s1++;
  if ((n > 0) || (flags & 0x0008))
    *s++ = '.';
  while (--n >= 0)
    if (*s1)
      *s++ = *s1++;
    else
      *s++ = '0';
  *s++ = 'e';
  if (r != 0)
    --dp;
  if (dp < 0) {
    *s++ = '-';
    dp = -dp;
  } else {
    *s++ = '+';
  }
  if (dp >= 100) {
    *s++ = '0' + (dp / 100);
    dp %= 100;
  }
  *s++ = '0' + (dp / 10);
  *s++ = '0' + (dp % 10);
  return s;
}


x86 assembly (clang, -O0):
<_pscien>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
fldt   0x10(%rbp)
fstpt  -0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %esi,-0x1c(%rbp)
mov    %edx,-0x20(%rbp)
fldt   -0x10(%rbp)
mov    -0x1c(%rbp),%edi
add    $0x1,%edi
mov    %rsp,%rax
fstpt  (%rax)
lea    -0x28(%rbp),%rsi
lea    -0x24(%rbp),%rdx
call   1030 <_ecvt@plt>
mov    %rax,-0x30(%rbp)
cmpl   $0x0,-0x24(%rbp)
je     1168 <_pscien+0x58>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2d,(%rax)
jmp    11b9 <_pscien+0xa9>
mov    -0x20(%rbp),%eax
and    $0x2,%eax
cmp    $0x0,%eax
je     118e <_pscien+0x7e>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2b,(%rax)
jmp    11b4 <_pscien+0xa4>
mov    -0x20(%rbp),%eax
and    $0x4,%eax
cmp    $0x0,%eax
je     11af <_pscien+0x9f>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x20,(%rax)
jmp    11b4 <_pscien+0xa4>
jmp    11b9 <_pscien+0xa9>
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x30(%rbp)
mov    (%rax),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
cmpl   $0x0,-0x1c(%rbp)
jg     11f4 <_pscien+0xe4>
mov    -0x20(%rbp),%eax
and    $0x8,%eax
cmp    $0x0,%eax
je     1206 <_pscien+0xf6>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2e,(%rax)
jmp    120b <_pscien+0xfb>
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
cmp    $0x0,%eax
jl     1268 <_pscien+0x158>
mov    -0x30(%rbp),%rax
cmpb   $0x0,(%rax)
je     1251 <_pscien+0x141>
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x30(%rbp)
mov    (%rax),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    1263 <_pscien+0x153>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x30,(%rax)
jmp    120b <_pscien+0xfb>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x65,(%rax)
fldt   -0x10(%rbp)
fldz
fxch   %st(1)
fucomip %st(1),%st
fstp   %st(0)
jne    1296 <_pscien+0x186>
jp     1296 <_pscien+0x186>
jmp    129f <_pscien+0x18f>
mov    -0x28(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jge    12c8 <_pscien+0x1b8>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2d,(%rax)
xor    %eax,%eax
sub    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    12da <_pscien+0x1ca>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2b,(%rax)
cmpl   $0x64,-0x28(%rbp)
jl     1313 <_pscien+0x203>
mov    -0x28(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
add    $0x30,%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x28(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
mov    %edx,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    $0x30,%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x28(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    $0x30,%edx
mov    %dl,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x18(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_pscien>:
push   %rbp
push   %r14
push   %rbx
sub    $0x30,%rsp
mov    %edx,%ebp
mov    %esi,%r14d
mov    %rdi,%rbx
fldt   0x50(%rsp)
lea    0x1(%r14),%edi
fld    %st(0)
fstpt  0x24(%rsp)
fstpt  (%rsp)
lea    0x1c(%rsp),%rsi
lea    0x20(%rsp),%rdx
call   1030 <_ecvt@plt>
mov    $0x2d,%cl
cmpl   $0x0,0x20(%rsp)
jne    1159 <_pscien+0x49>
mov    $0x2b,%cl
test   $0x2,%bpl
jne    1159 <_pscien+0x49>
mov    $0x20,%cl
test   $0x4,%bpl
je     115f <_pscien+0x4f>
mov    %cl,(%rbx)
add    $0x1,%rbx
mov    (%rax),%cl
mov    %cl,(%rbx)
test   %r14d,%r14d
jg     1176 <_pscien+0x66>
and    $0x8,%ebp
jne    1176 <_pscien+0x66>
add    $0x1,%rbx
jmp    1208 <_pscien+0xf8>
lea    0x2(%rbx),%rdx
movb   $0x2e,0x1(%rbx)
test   %r14d,%r14d
jle    1205 <_pscien+0xf5>
add    $0x1,%rax
test   $0x1,%r14b
jne    119c <_pscien+0x8c>
mov    %r14d,%ecx
cmp    $0x1,%r14d
jne    11c7 <_pscien+0xb7>
jmp    1208 <_pscien+0xf8>
lea    -0x1(%r14),%ecx
movzbl (%rax),%edx
xor    %esi,%esi
test   %dl,%dl
mov    $0x30,%edi
cmovne %edx,%edi
setne  %sil
add    %rsi,%rax
mov    %dil,0x2(%rbx)
add    $0x3,%rbx
mov    %rbx,%rdx
cmp    $0x1,%r14d
je     1208 <_pscien+0xf8>
add    $0xffffffff,%ecx
mov    $0x30,%esi
nop
movzbl (%rax),%edi
xor    %ebp,%ebp
test   %dil,%dil
setne  %bpl
cmove  %esi,%edi
lea    (%rax,%rbp,1),%rbx
mov    %dil,(%rdx)
movzbl (%rax,%rbp,1),%edi
xor    %eax,%eax
test   %dil,%dil
setne  %al
cmove  %esi,%edi
add    %rbx,%rax
mov    %dil,0x1(%rdx)
add    $0x2,%rdx
add    $0xfffffffe,%ecx
jb     11d0 <_pscien+0xc0>
mov    %rdx,%rbx
movb   $0x65,(%rbx)
fldz
fldt   0x24(%rsp)
fucomip %st(1),%st
fstp   %st(0)
mov    0x1c(%rsp),%eax
jne    121d <_pscien+0x10d>
jnp    1224 <_pscien+0x114>
add    $0xffffffff,%eax
mov    %eax,0x1c(%rsp)
test   %eax,%eax
js     126f <_pscien+0x15f>
movb   $0x2b,0x1(%rbx)
mov    0x1c(%rsp),%eax
cmp    $0x64,%eax
jl     1282 <_pscien+0x172>
mov    %eax,%eax
imul   $0x51eb851f,%rax,%rax
shr    $0x25,%rax
add    $0x30,%al
mov    %al,0x2(%rbx)
add    $0x3,%rbx
movslq 0x1c(%rsp),%rax
imul   $0x51eb851f,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x25,%rcx
add    %edx,%ecx
imul   $0x64,%ecx,%ecx
sub    %ecx,%eax
mov    %eax,0x1c(%rsp)
jmp    1286 <_pscien+0x176>
movb   $0x2d,0x1(%rbx)
xor    %eax,%eax
sub    0x1c(%rsp),%eax
mov    %eax,0x1c(%rsp)
cmp    $0x64,%eax
jge    1235 <_pscien+0x125>
add    $0x2,%rbx
cltq
imul   $0x66666667,%rax,%rax
mov    %rax,%rcx
shr    $0x3f,%rcx
shr    $0x22,%rax
add    %ecx,%eax
add    $0x30,%al
mov    %al,(%rbx)
movslq 0x1c(%rsp),%rax
imul   $0x66666667,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
shr    $0x22,%rcx
add    %edx,%ecx
add    %ecx,%ecx
lea    (%rcx,%rcx,4),%ecx
sub    %ecx,%eax
add    $0x30,%al
mov    %al,0x1(%rbx)
add    $0x2,%rbx
mov    %rbx,%rax
add    $0x30,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i8* @_pscien(x86_fp80 %0, i8* %1, i32 %2, i32 %3) {
%5 = alloca x86_fp80
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i8*
store x86_fp80 %0, x86_fp80* %5
store i8* %1, i8** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%12 = load x86_fp80, x86_fp80* %5
%13 = load i32, i32* %7
%14 = add nsw i32 %13, 1
%15 = call i8* @_ecvt(x86_fp80 %12, i32 %14, i32* %10, i32* %9)
store i8* %15, i8** %11
%16 = load i32, i32* %9
%17 = icmp ne i32 %16, 0
br i1 %17, label %18, label %21
18: ; preds = %4
%19 = load i8*, i8** %6
%20 = getelementptr inbounds i8, i8* %19, i32 1
store i8* %20, i8** %6
store i8 45, i8* %19
br label %37
21: ; preds = %4
%22 = load i32, i32* %8
%23 = and i32 %22, 2
%24 = icmp ne i32 %23, 0
br i1 %24, label %25, label %28
25: ; preds = %21
%26 = load i8*, i8** %6
%27 = getelementptr inbounds i8, i8* %26, i32 1
store i8* %27, i8** %6
store i8 43, i8* %26
br label %36
28: ; preds = %21
%29 = load i32, i32* %8
%30 = and i32 %29, 4
%31 = icmp ne i32 %30, 0
br i1 %31, label %32, label %35
32: ; preds = %28
%33 = load i8*, i8** %6
%34 = getelementptr inbounds i8, i8* %33, i32 1
store i8* %34, i8** %6
store i8 32, i8* %33
br label %35
35: ; preds = %32, %28
br label %36
36: ; preds = %35, %25
br label %37
37: ; preds = %36, %18
%38 = load i8*, i8** %11
%39 = getelementptr inbounds i8, i8* %38, i32 1
store i8* %39, i8** %11
%40 = load i8, i8* %38
%41 = load i8*, i8** %6
%42 = getelementptr inbounds i8, i8* %41, i32 1
store i8* %42, i8** %6
store i8 %40, i8* %41
%43 = load i32, i32* %7
%44 = icmp sgt i32 %43, 0
br i1 %44, label %49, label %45
45: ; preds = %37
%46 = load i32, i32* %8
%47 = and i32 %46, 8
%48 = icmp ne i32 %47, 0
br i1 %48, label %49, label %52
49: ; preds = %45, %37
%50 = load i8*, i8** %6
%51 = getelementptr inbounds i8, i8* %50, i32 1
store i8* %51, i8** %6
store i8 46, i8* %50
br label %52
52: ; preds = %49, %45
br label %53
53: ; preds = %70, %52
%54 = load i32, i32* %7
%55 = add nsw i32 %54, -1
store i32 %55, i32* %7
%56 = icmp sge i32 %55, 0
br i1 %56, label %57, label %71
57: ; preds = %53
%58 = load i8*, i8** %11
%59 = load i8, i8* %58
%60 = icmp ne i8 %59, 0
br i1 %60, label %61, label %67
61: ; preds = %57
%62 = load i8*, i8** %11
%63 = getelementptr inbounds i8, i8* %62, i32 1
store i8* %63, i8** %11
%64 = load i8, i8* %62
%65 = load i8*, i8** %6
%66 = getelementptr inbounds i8, i8* %65, i32 1
store i8* %66, i8** %6
store i8 %64, i8* %65
br label %70
67: ; preds = %57
%68 = load i8*, i8** %6
%69 = getelementptr inbounds i8, i8* %68, i32 1
store i8* %69, i8** %6
store i8 48, i8* %68
br label %70
70: ; preds = %67, %61
br label %53
71: ; preds = %53
%72 = load i8*, i8** %6
%73 = getelementptr inbounds i8, i8* %72, i32 1
store i8* %73, i8** %6
store i8 101, i8* %72
%74 = load x86_fp80, x86_fp80* %5
%75 = fcmp une x86_fp80 %74, 0xK00000000000000000000
br i1 %75, label %76, label %79
76: ; preds = %71
%77 = load i32, i32* %10
%78 = add nsw i32 %77, -1
store i32 %78, i32* %10
br label %79
79: ; preds = %76, %71
%80 = load i32, i32* %10
%81 = icmp slt i32 %80, 0
br i1 %81, label %82, label %87
82: ; preds = %79
%83 = load i8*, i8** %6
%84 = getelementptr inbounds i8, i8* %83, i32 1
store i8* %84, i8** %6
store i8 45, i8* %83
%85 = load i32, i32* %10
%86 = sub nsw i32 0, %85
store i32 %86, i32* %10
br label %90
87: ; preds = %79
%88 = load i8*, i8** %6
%89 = getelementptr inbounds i8, i8* %88, i32 1
store i8* %89, i8** %6
store i8 43, i8* %88
br label %90
90: ; preds = %87, %82
%91 = load i32, i32* %10
%92 = icmp sge i32 %91, 100
br i1 %92, label %93, label %102
93: ; preds = %90
%94 = load i32, i32* %10
%95 = sdiv i32 %94, 100
%96 = add nsw i32 48, %95
%97 = trunc i32 %96 to i8
%98 = load i8*, i8** %6
%99 = getelementptr inbounds i8, i8* %98, i32 1
store i8* %99, i8** %6
store i8 %97, i8* %98
%100 = load i32, i32* %10
%101 = srem i32 %100, 100
store i32 %101, i32* %10
br label %102
102: ; preds = %93, %90
%103 = load i32, i32* %10
%104 = sdiv i32 %103, 10
%105 = add nsw i32 48, %104
%106 = trunc i32 %105 to i8
%107 = load i8*, i8** %6
%108 = getelementptr inbounds i8, i8* %107, i32 1
store i8* %108, i8** %6
store i8 %106, i8* %107
%109 = load i32, i32* %10
%110 = srem i32 %109, 10
%111 = add nsw i32 48, %110
%112 = trunc i32 %111 to i8
%113 = load i8*, i8** %6
%114 = getelementptr inbounds i8, i8* %113, i32 1
store i8* %114, i8** %6
store i8 %112, i8* %113
%115 = load i8*, i8** %6
ret i8* %115
}

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