#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 labs(int);
double get_rand_knuth(long *inpl) {
  static int ind;
  static int inda;
  static long fld[56];
  static int stf = 0;
  long valj, valk;
  long i, j, k;
  if ((*inpl < 0) || (stf == 0)) {
    stf = 1;
    valj = labs(161803398 - labs(*inpl));
    valj %= 1000000000;
    fld[55] = valj;
    valk = 1;
    for (i = 1; i <= 54; i++) {
      j = (21 * i) % 55;
      fld[j] = valk;
      valk = valj - valk;
      if (valk < 0) {
        valk += 1000000000;
      }
      valj = fld[j];
    }
    for (k = 1; k <= 4; k++) {
      for (i = 1; i <= 55; i++) {
        fld[i] -= fld[1 + (i + 30) % 55];
        if (fld[i] < 0) {
          fld[i] += 1000000000;
        }
      }
    }
    *inpl = 1;
    ind = 0;
    inda = 31;
  }
  if (++ind >= 56) {
    ind = 1;
  }
  if (++inda >= 56) {
    inda = 1;
  }
  valj = fld[ind] - fld[inda];
  if (valj < 0) {
    valj += 1000000000;
  }
  fld[ind] = valj;
  return (valj * (1.0 / 1000000000));
}


x86 assembly (clang, -O0):
<get_rand_knuth>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
cmpq   $0x0,(%rax)
jl     1137 <get_rand_knuth+0x27>
cmpl   $0x0,0x30df(%rip)
jne    12ee <get_rand_knuth+0x1de>
movl   $0x1,0x30cf(%rip)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %eax,%edi
call   1030 <labs@plt>
mov    $0x9a4ec86,%edi
sub    %eax,%edi
call   1030 <labs@plt>
cltq
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    $0x3b9aca00,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,0x308a(%rip)
movq   $0x1,-0x18(%rbp)
movq   $0x1,-0x20(%rbp)
cmpq   $0x36,-0x20(%rbp)
jg     1208 <get_rand_knuth+0xf8>
imul   $0x15,-0x20(%rbp),%rax
mov    $0x37,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x28(%rbp)
mov    -0x18(%rbp),%rdx
mov    -0x28(%rbp),%rcx
lea    0x2e95(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
sub    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jge    11e4 <get_rand_knuth+0xd4>
mov    -0x18(%rbp),%rax
add    $0x3b9aca00,%rax
mov    %rax,-0x18(%rbp)
mov    -0x28(%rbp),%rcx
lea    0x2e61(%rip),%rax
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x10(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    118e <get_rand_knuth+0x7e>
movq   $0x1,-0x30(%rbp)
cmpq   $0x4,-0x30(%rbp)
jg     12cf <get_rand_knuth+0x1bf>
movq   $0x1,-0x20(%rbp)
cmpq   $0x37,-0x20(%rbp)
jg     12b9 <get_rand_knuth+0x1a9>
mov    -0x20(%rbp),%rax
add    $0x1e,%rax
mov    $0x37,%ecx
cqto
idiv   %rcx
add    $0x1,%rdx
lea    0x2e05(%rip),%rax
mov    (%rax,%rdx,8),%rax
mov    -0x20(%rbp),%rcx
lea    0x2df6(%rip),%rdx
mov    (%rdx,%rcx,8),%rdx
sub    %rax,%rdx
lea    0x2de8(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
mov    -0x20(%rbp),%rcx
lea    0x2dd9(%rip),%rax
cmpq   $0x0,(%rax,%rcx,8)
jge    12a3 <get_rand_knuth+0x193>
mov    -0x20(%rbp),%rcx
lea    0x2dc3(%rip),%rax
mov    (%rax,%rcx,8),%rdx
add    $0x3b9aca00,%rdx
lea    0x2db1(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
jmp    12a8 <get_rand_knuth+0x198>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1223 <get_rand_knuth+0x113>
jmp    12be <get_rand_knuth+0x1ae>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1210 <get_rand_knuth+0x100>
mov    -0x8(%rbp),%rax
movq   $0x1,(%rax)
movl   $0x0,0x2d5c(%rip)
movl   $0x1f,0x2d56(%rip)
mov    0x2d4c(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2d43(%rip)
cmp    $0x38,%eax
jl     1310 <get_rand_knuth+0x200>
movl   $0x1,0x2d30(%rip)
mov    0x2d2e(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2d25(%rip)
cmp    $0x38,%eax
jl     1332 <get_rand_knuth+0x222>
movl   $0x1,0x2d12(%rip)
movslq 0x2d07(%rip),%rcx
lea    0x2d10(%rip),%rax
mov    (%rax,%rcx,8),%rax
movslq 0x2cf9(%rip),%rdx
lea    0x2cfe(%rip),%rcx
sub    (%rcx,%rdx,8),%rax
mov    %rax,-0x10(%rbp)
cmpq   $0x0,-0x10(%rbp)
jge    1373 <get_rand_knuth+0x263>
mov    -0x10(%rbp),%rax
add    $0x3b9aca00,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdx
movslq 0x2cc2(%rip),%rcx
lea    0x2ccb(%rip),%rax
mov    %rdx,(%rax,%rcx,8)
cvtsi2sdq -0x10(%rbp),%xmm0
movsd  0xc69(%rip),%xmm1
mulsd  %xmm1,%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<get_rand_knuth>:
mov    (%rdi),%rax
test   %rax,%rax
js     1142 <get_rand_knuth+0x42>
testb  $0x1,0x30f1(%rip)
je     1142 <get_rand_knuth+0x42>
mov    0x2f19(%rip),%eax
mov    0x2f17(%rip),%edx
lea    0x1(%rax),%esi
cmp    $0x37,%eax
mov    $0x1,%eax
cmovge %eax,%esi
mov    %esi,0x2eff(%rip)
lea    0x1(%rdx),%ecx
cmp    $0x37,%edx
cmovge %eax,%ecx
movslq %esi,%rax
jmp    1382 <get_rand_knuth+0x282>
mov    %eax,%ecx
neg    %ecx
cmovns %eax,%ecx
add    $0x9a4ec86,%ecx
mov    %ecx,%esi
neg    %esi
cmovs  %ecx,%esi
movb   $0x1,0x30a3(%rip)
mov    %esi,%eax
shr    $0x9,%eax
imul   $0x44b83,%rax,%rax
shr    $0x27,%rax
imul   $0x3b9aca00,%eax,%eax
sub    %eax,%esi
mov    %rsi,0x307c(%rip)
mov    $0x1,%r9d
mov    $0x36,%r8d
lea    0x2f59(%rip),%r10
mov    $0x15,%ecx
movabs $0x29e4129e4129e413,%r11
12 e4 29
xchg   %ax,%ax
mov    %rcx,%rax
mul    %r11
mov    %rcx,%rax
sub    %rdx,%rax
shr    %rax
add    %rdx,%rax
shr    $0x5,%rax
imul   $0xfffffffffffffe48,%rax,%rax
sub    %r9,%rsi
lea    0x3b9aca00(%rsi),%rdx
test   %rsi,%rsi
cmovns %rsi,%rdx
mov    %r9,(%r10,%rax,1)
add    $0xa8,%r10
add    $0x15,%rcx
mov    %r9,%rsi
mov    %rdx,%r9
add    $0xffffffffffffffff,%r8
jne    11a0 <get_rand_knuth+0xa0>
mov    $0x8,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
lea    0x2e45(%rip),%r8
nopl   0x0(%rax,%rax,1)
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%rcx,%r8,1),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%rcx,%r8,1)
add    $0x8,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x1c0,%rcx
jne    1200 <get_rand_knuth+0x100>
mov    $0x8,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%rcx,%r8,1),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%rcx,%r8,1)
add    $0x8,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x1c0,%rcx
jne    1260 <get_rand_knuth+0x160>
mov    $0x8,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%rcx,%r8,1),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%rcx,%r8,1)
add    $0x8,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x1c0,%rcx
jne    12c0 <get_rand_knuth+0x1c0>
mov    $0x8,%ecx
mov    $0x20,%r9b
mov    $0x1f,%sil
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl %sil,%esi
imul   $0x95,%esi,%eax
shr    $0xd,%eax
imul   $0x37,%eax,%eax
mov    %r9d,%edx
sub    %al,%dl
movzbl %dl,%eax
mov    (%rcx,%r8,1),%rdx
sub    (%r8,%rax,8),%rdx
lea    0x3b9aca00(%rdx),%rax
test   %rdx,%rdx
cmovns %rdx,%rax
mov    %rax,(%rcx,%r8,1)
add    $0x8,%rcx
add    $0x1,%r9b
add    $0x1,%sil
cmp    $0x1c0,%rcx
jne    1320 <get_rand_knuth+0x220>
movq   $0x1,(%rdi)
movl   $0x1,0x2cb8(%rip)
mov    $0x20,%ecx
mov    $0x1,%eax
mov    %ecx,0x2cac(%rip)
lea    0x2cb1(%rip),%rdx
mov    (%rdx,%rax,8),%rsi
movslq %ecx,%rcx
sub    (%rdx,%rcx,8),%rsi
lea    0x3b9aca00(%rsi),%rcx
test   %rsi,%rsi
cmovns %rsi,%rcx
mov    %rcx,(%rdx,%rax,8)
cvtsi2sd %rcx,%xmm0
mulsd  0xc47(%rip),%xmm0
ret

LLVM IR (-O0):
@get_rand_knuth.ind = internal global i32 0
@get_rand_knuth.inda = internal global i32 0
@get_rand_knuth.fld = internal global [56 x i64] zeroinitializer
@get_rand_knuth.stf = internal global i32 0
define double @get_rand_knuth(i64* %0) {
%2 = alloca i64*
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
store i64* %0, i64** %2
%8 = load i64*, i64** %2
%9 = load i64, i64* %8
%10 = icmp slt i64 %9, 0
br i1 %10, label %14, label %11
11: ; preds = %1
%12 = load i32, i32* @get_rand_knuth.stf
%13 = icmp eq i32 %12, 0
br i1 %13, label %14, label %88
14: ; preds = %11, %1
store i32 1, i32* @get_rand_knuth.stf
%15 = load i64*, i64** %2
%16 = load i64, i64* %15
%17 = trunc i64 %16 to i32
%18 = call i32 @labs(i32 %17)
%19 = sub nsw i32 161803398, %18
%20 = call i32 @labs(i32 %19)
%21 = sext i32 %20 to i64
store i64 %21, i64* %3
%22 = load i64, i64* %3
%23 = srem i64 %22, 1000000000
store i64 %23, i64* %3
%24 = load i64, i64* %3
store i64 %24, i64* getelementptr inbounds ([56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 55)
store i64 1, i64* %4
store i64 1, i64* %5
br label %25
25: ; preds = %47, %14
%26 = load i64, i64* %5
%27 = icmp sle i64 %26, 54
br i1 %27, label %28, label %50
28: ; preds = %25
%29 = load i64, i64* %5
%30 = mul nsw i64 21, %29
%31 = srem i64 %30, 55
store i64 %31, i64* %6
%32 = load i64, i64* %4
%33 = load i64, i64* %6
%34 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %33
store i64 %32, i64* %34
%35 = load i64, i64* %3
%36 = load i64, i64* %4
%37 = sub nsw i64 %35, %36
store i64 %37, i64* %4
%38 = load i64, i64* %4
%39 = icmp slt i64 %38, 0
br i1 %39, label %40, label %43
40: ; preds = %28
%41 = load i64, i64* %4
%42 = add nsw i64 %41, 1000000000
store i64 %42, i64* %4
br label %43
43: ; preds = %40, %28
%44 = load i64, i64* %6
%45 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %44
%46 = load i64, i64* %45
store i64 %46, i64* %3
br label %47
47: ; preds = %43
%48 = load i64, i64* %5
%49 = add nsw i64 %48, 1
store i64 %49, i64* %5
br label %25
50: ; preds = %25
store i64 1, i64* %7
br label %51
51: ; preds = %83, %50
%52 = load i64, i64* %7
%53 = icmp sle i64 %52, 4
br i1 %53, label %54, label %86
54: ; preds = %51
store i64 1, i64* %5
br label %55
55: ; preds = %79, %54
%56 = load i64, i64* %5
%57 = icmp sle i64 %56, 55
br i1 %57, label %58, label %82
58: ; preds = %55
%59 = load i64, i64* %5
%60 = add nsw i64 %59, 30
%61 = srem i64 %60, 55
%62 = add nsw i64 1, %61
%63 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %62
%64 = load i64, i64* %63
%65 = load i64, i64* %5
%66 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %65
%67 = load i64, i64* %66
%68 = sub nsw i64 %67, %64
store i64 %68, i64* %66
%69 = load i64, i64* %5
%70 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %69
%71 = load i64, i64* %70
%72 = icmp slt i64 %71, 0
br i1 %72, label %73, label %78
73: ; preds = %58
%74 = load i64, i64* %5
%75 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %74
%76 = load i64, i64* %75
%77 = add nsw i64 %76, 1000000000
store i64 %77, i64* %75
br label %78
78: ; preds = %73, %58
br label %79
79: ; preds = %78
%80 = load i64, i64* %5
%81 = add nsw i64 %80, 1
store i64 %81, i64* %5
br label %55
82: ; preds = %55
br label %83
83: ; preds = %82
%84 = load i64, i64* %7
%85 = add nsw i64 %84, 1
store i64 %85, i64* %7
br label %51
86: ; preds = %51
%87 = load i64*, i64** %2
store i64 1, i64* %87
store i32 0, i32* @get_rand_knuth.ind
store i32 31, i32* @get_rand_knuth.inda
br label %88
88: ; preds = %86, %11
%89 = load i32, i32* @get_rand_knuth.ind
%90 = add nsw i32 %89, 1
store i32 %90, i32* @get_rand_knuth.ind
%91 = icmp sge i32 %90, 56
br i1 %91, label %92, label %93
92: ; preds = %88
store i32 1, i32* @get_rand_knuth.ind
br label %93
93: ; preds = %92, %88
%94 = load i32, i32* @get_rand_knuth.inda
%95 = add nsw i32 %94, 1
store i32 %95, i32* @get_rand_knuth.inda
%96 = icmp sge i32 %95, 56
br i1 %96, label %97, label %98
97: ; preds = %93
store i32 1, i32* @get_rand_knuth.inda
br label %98
98: ; preds = %97, %93
%99 = load i32, i32* @get_rand_knuth.ind
%100 = sext i32 %99 to i64
%101 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %100
%102 = load i64, i64* %101
%103 = load i32, i32* @get_rand_knuth.inda
%104 = sext i32 %103 to i64
%105 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %104
%106 = load i64, i64* %105
%107 = sub nsw i64 %102, %106
store i64 %107, i64* %3
%108 = load i64, i64* %3
%109 = icmp slt i64 %108, 0
br i1 %109, label %110, label %113
110: ; preds = %98
%111 = load i64, i64* %3
%112 = add nsw i64 %111, 1000000000
store i64 %112, i64* %3
br label %113
113: ; preds = %110, %98
%114 = load i64, i64* %3
%115 = load i32, i32* @get_rand_knuth.ind
%116 = sext i32 %115 to i64
%117 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %116
store i64 %114, i64* %117
%118 = load i64, i64* %3
%119 = sitofp i64 %118 to double
%120 = fmul double %119, 1.000000e-09
ret double %120
}

LLVM IR (-O2):
@get_rand_knuth.ind = internal unnamed_addr global i32 0
@get_rand_knuth.inda = internal unnamed_addr global i32 0
@get_rand_knuth.fld = internal unnamed_addr global [56 x i64] zeroinitializer
@get_rand_knuth.stf = internal unnamed_addr global i1 false
define double @get_rand_knuth(i64* nocapture %0) {
%2 = load i64, i64* %0
%3 = icmp slt i64 %2, 0
%4 = load i1, i1* @get_rand_knuth.stf
%5 = xor i1 %4, true
%6 = select i1 %3, i1 true, i1 %5
br i1 %6, label %7, label %98
7: ; preds = %1
store i1 true, i1* @get_rand_knuth.stf
%8 = trunc i64 %2 to i32
%9 = tail call i32 @llvm.abs.i32(i32 %8, i1 true)
%10 = sub nsw i32 161803398, %9
%11 = tail call i32 @llvm.abs.i32(i32 %10, i1 true)
%12 = urem i32 %11, 1000000000
%13 = zext i32 %12 to i64
store i64 %13, i64* getelementptr inbounds ([56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 55)
br label %14
14: ; preds = %7, %14
%15 = phi i64 [ %13, %7 ], [ %17, %14 ]
%16 = phi i64 [ 1, %7 ], [ %27, %14 ]
%17 = phi i64 [ 1, %7 ], [ %26, %14 ]
%18 = trunc i64 %16 to i16
%19 = mul i16 %18, 21
%20 = urem i16 %19, 55
%21 = zext i16 %20 to i64
%22 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %21
store i64 %17, i64* %22
%23 = sub nsw i64 %15, %17
%24 = icmp slt i64 %23, 0
%25 = add nsw i64 %23, 1000000000
%26 = select i1 %24, i64 %25, i64 %23
%27 = add nuw nsw i64 %16, 1
%28 = icmp eq i64 %27, 55
br i1 %28, label %29, label %14
29: ; preds = %14, %29
%30 = phi i64 [ %44, %29 ], [ 1, %14 ]
%31 = trunc i64 %30 to i8
%32 = add i8 %31, 30
%33 = urem i8 %32, 55
%34 = add nuw nsw i8 %33, 1
%35 = zext i8 %34 to i64
%36 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %35
%37 = load i64, i64* %36
%38 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %30
%39 = load i64, i64* %38
%40 = sub nsw i64 %39, %37
%41 = icmp slt i64 %40, 0
%42 = add nsw i64 %40, 1000000000
%43 = select i1 %41, i64 %42, i64 %40
store i64 %43, i64* %38
%44 = add nuw nsw i64 %30, 1
%45 = icmp eq i64 %44, 56
br i1 %45, label %46, label %29
46: ; preds = %29, %46
%47 = phi i64 [ %61, %46 ], [ 1, %29 ]
%48 = trunc i64 %47 to i8
%49 = add i8 %48, 30
%50 = urem i8 %49, 55
%51 = add nuw nsw i8 %50, 1
%52 = zext i8 %51 to i64
%53 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %52
%54 = load i64, i64* %53
%55 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %47
%56 = load i64, i64* %55
%57 = sub nsw i64 %56, %54
%58 = icmp slt i64 %57, 0
%59 = add nsw i64 %57, 1000000000
%60 = select i1 %58, i64 %59, i64 %57
store i64 %60, i64* %55
%61 = add nuw nsw i64 %47, 1
%62 = icmp eq i64 %61, 56
br i1 %62, label %63, label %46
63: ; preds = %46, %63
%64 = phi i64 [ %78, %63 ], [ 1, %46 ]
%65 = trunc i64 %64 to i8
%66 = add i8 %65, 30
%67 = urem i8 %66, 55
%68 = add nuw nsw i8 %67, 1
%69 = zext i8 %68 to i64
%70 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %69
%71 = load i64, i64* %70
%72 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %64
%73 = load i64, i64* %72
%74 = sub nsw i64 %73, %71
%75 = icmp slt i64 %74, 0
%76 = add nsw i64 %74, 1000000000
%77 = select i1 %75, i64 %76, i64 %74
store i64 %77, i64* %72
%78 = add nuw nsw i64 %64, 1
%79 = icmp eq i64 %78, 56
br i1 %79, label %80, label %63
80: ; preds = %63, %80
%81 = phi i64 [ %95, %80 ], [ 1, %63 ]
%82 = trunc i64 %81 to i8
%83 = add i8 %82, 30
%84 = urem i8 %83, 55
%85 = add nuw nsw i8 %84, 1
%86 = zext i8 %85 to i64
%87 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %86
%88 = load i64, i64* %87
%89 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %81
%90 = load i64, i64* %89
%91 = sub nsw i64 %90, %88
%92 = icmp slt i64 %91, 0
%93 = add nsw i64 %91, 1000000000
%94 = select i1 %92, i64 %93, i64 %91
store i64 %94, i64* %89
%95 = add nuw nsw i64 %81, 1
%96 = icmp eq i64 %95, 56
br i1 %96, label %97, label %80
97: ; preds = %80
store i64 1, i64* %0
store i32 1, i32* @get_rand_knuth.ind
br label %108
98: ; preds = %1
%99 = load i32, i32* @get_rand_knuth.ind
%100 = load i32, i32* @get_rand_knuth.inda
%101 = add nsw i32 %99, 1
%102 = icmp sgt i32 %99, 54
%103 = select i1 %102, i32 1, i32 %101
store i32 %103, i32* @get_rand_knuth.ind
%104 = add nsw i32 %100, 1
%105 = icmp sgt i32 %100, 54
%106 = select i1 %105, i32 1, i32 %104
%107 = sext i32 %103 to i64
br label %108
108: ; preds = %98, %97
%109 = phi i64 [ 1, %97 ], [ %107, %98 ]
%110 = phi i32 [ 32, %97 ], [ %106, %98 ]
store i32 %110, i32* @get_rand_knuth.inda
%111 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %109
%112 = load i64, i64* %111
%113 = sext i32 %110 to i64
%114 = getelementptr inbounds [56 x i64], [56 x i64]* @get_rand_knuth.fld, i64 0, i64 %113
%115 = load i64, i64* %114
%116 = sub nsw i64 %112, %115
%117 = icmp slt i64 %116, 0
%118 = add nsw i64 %116, 1000000000
%119 = select i1 %117, i64 %118, i64 %116
store i64 %119, i64* %111
%120 = sitofp i64 %119 to double
%121 = fmul double %120, 1.000000e-09
ret double %121
}