void print_element(double el, int pos, char *out) {
  union {
    double datum;
    char bytes[8];
  } block;
  block.datum = el;
  *(out + pos) = (block.bytes[0] & 0xF0 >> 4) + '0';
  *(out + pos + 1) = (block.bytes[0] & 0x0F) + '0';
  *(out + pos + 2) = (block.bytes[1] & 0xF0 >> 4) + '0';
  *(out + pos + 3) = (block.bytes[1] & 0x0F) + '0';
  *(out + pos + 4) = (block.bytes[2] & 0xF0 >> 4) + '0';
  *(out + pos + 5) = (block.bytes[2] & 0x0F) + '0';
  *(out + pos + 6) = (block.bytes[3] & 0xF0 >> 4) + '0';
  *(out + pos + 7) = (block.bytes[3] & 0x0F) + '0';
  *(out + pos + 8) = (block.bytes[4] & 0xF0 >> 4) + '0';
  *(out + pos + 9) = (block.bytes[4] & 0x0F) + '0';
  *(out + pos + 10) = (block.bytes[5] & 0xF0 >> 4) + '0';
  *(out + pos + 11) = (block.bytes[5] & 0x0F) + '0';
  *(out + pos + 12) = (block.bytes[6] & 0xF0 >> 4) + '0';
  *(out + pos + 13) = (block.bytes[6] & 0x0F) + '0';
  *(out + pos + 14) = (block.bytes[7] & 0xF0 >> 4) + '0';
  *(out + pos + 15) = (block.bytes[7] & 0x0F) + '0';
}


x86 assembly (clang, -O0):
<print_element>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
movsbl -0x20(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
movsbl -0x20(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x1(%rax,%rcx,1)
movsbl -0x1f(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x2(%rax,%rcx,1)
movsbl -0x1f(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x3(%rax,%rcx,1)
movsbl -0x1e(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x4(%rax,%rcx,1)
movsbl -0x1e(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x5(%rax,%rcx,1)
movsbl -0x1d(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x6(%rax,%rcx,1)
movsbl -0x1d(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x7(%rax,%rcx,1)
movsbl -0x1c(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x8(%rax,%rcx,1)
movsbl -0x1c(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0x9(%rax,%rcx,1)
movsbl -0x1b(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0xa(%rax,%rcx,1)
movsbl -0x1b(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0xb(%rax,%rcx,1)
movsbl -0x1a(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0xc(%rax,%rcx,1)
movsbl -0x1a(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0xd(%rax,%rcx,1)
movsbl -0x19(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0xe(%rax,%rcx,1)
movsbl -0x19(%rbp),%eax
and    $0xf,%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
mov    %dl,0xf(%rax,%rcx,1)
pop    %rbp
ret

x86 assembly (clang, -O2):
<print_element>:
movq   %xmm0,%rax
mov    %eax,%edx
and    $0xf,%dl
or     $0x30,%dl
movslq %edi,%rcx
mov    %dl,(%rsi,%rcx,1)
mov    %dl,0x1(%rsi,%rcx,1)
mov    %rax,%rdx
shr    $0x8,%rdx
and    $0xf,%dl
or     $0x30,%dl
mov    %dl,0x2(%rsi,%rcx,1)
mov    %dl,0x3(%rsi,%rcx,1)
mov    %rax,%rdx
shr    $0x10,%rdx
and    $0xf,%dl
or     $0x30,%dl
mov    %dl,0x4(%rsi,%rcx,1)
mov    %dl,0x5(%rsi,%rcx,1)
mov    %rax,%rdx
shr    $0x18,%rdx
and    $0xf,%dl
or     $0x30,%dl
mov    %dl,0x6(%rsi,%rcx,1)
mov    %dl,0x7(%rsi,%rcx,1)
mov    %rax,%rdx
shr    $0x20,%rdx
and    $0xf,%dl
or     $0x30,%dl
mov    %dl,0x8(%rsi,%rcx,1)
mov    %dl,0x9(%rsi,%rcx,1)
mov    %rax,%rdx
shr    $0x28,%rdx
and    $0xf,%dl
or     $0x30,%dl
mov    %dl,0xa(%rsi,%rcx,1)
mov    %dl,0xb(%rsi,%rcx,1)
mov    %rax,%rdx
shr    $0x30,%rdx
and    $0xf,%dl
or     $0x30,%dl
mov    %dl,0xc(%rsi,%rcx,1)
mov    %dl,0xd(%rsi,%rcx,1)
shr    $0x38,%rax
and    $0xf,%al
or     $0x30,%al
mov    %al,0xe(%rsi,%rcx,1)
mov    %al,0xf(%rsi,%rcx,1)
ret

LLVM IR (-O0):
%union.anon = type { double }
define void @print_element(double %0, i32 %1, i8* %2) {
%4 = alloca double
%5 = alloca i32
%6 = alloca i8*
%7 = alloca %union.anon
store double %0, double* %4
store i32 %1, i32* %5
store i8* %2, i8** %6
%8 = load double, double* %4
%9 = bitcast %union.anon* %7 to double*
store double %8, double* %9
%10 = bitcast %union.anon* %7 to [8 x i8]*
%11 = getelementptr inbounds [8 x i8], [8 x i8]* %10, i64 0, i64 0
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = and i32 %13, 15
%15 = add nsw i32 %14, 48
%16 = trunc i32 %15 to i8
%17 = load i8*, i8** %6
%18 = load i32, i32* %5
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds i8, i8* %17, i64 %19
store i8 %16, i8* %20
%21 = bitcast %union.anon* %7 to [8 x i8]*
%22 = getelementptr inbounds [8 x i8], [8 x i8]* %21, i64 0, i64 0
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = and i32 %24, 15
%26 = add nsw i32 %25, 48
%27 = trunc i32 %26 to i8
%28 = load i8*, i8** %6
%29 = load i32, i32* %5
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds i8, i8* %28, i64 %30
%32 = getelementptr inbounds i8, i8* %31, i64 1
store i8 %27, i8* %32
%33 = bitcast %union.anon* %7 to [8 x i8]*
%34 = getelementptr inbounds [8 x i8], [8 x i8]* %33, i64 0, i64 1
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
%37 = and i32 %36, 15
%38 = add nsw i32 %37, 48
%39 = trunc i32 %38 to i8
%40 = load i8*, i8** %6
%41 = load i32, i32* %5
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds i8, i8* %40, i64 %42
%44 = getelementptr inbounds i8, i8* %43, i64 2
store i8 %39, i8* %44
%45 = bitcast %union.anon* %7 to [8 x i8]*
%46 = getelementptr inbounds [8 x i8], [8 x i8]* %45, i64 0, i64 1
%47 = load i8, i8* %46
%48 = sext i8 %47 to i32
%49 = and i32 %48, 15
%50 = add nsw i32 %49, 48
%51 = trunc i32 %50 to i8
%52 = load i8*, i8** %6
%53 = load i32, i32* %5
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds i8, i8* %52, i64 %54
%56 = getelementptr inbounds i8, i8* %55, i64 3
store i8 %51, i8* %56
%57 = bitcast %union.anon* %7 to [8 x i8]*
%58 = getelementptr inbounds [8 x i8], [8 x i8]* %57, i64 0, i64 2
%59 = load i8, i8* %58
%60 = sext i8 %59 to i32
%61 = and i32 %60, 15
%62 = add nsw i32 %61, 48
%63 = trunc i32 %62 to i8
%64 = load i8*, i8** %6
%65 = load i32, i32* %5
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds i8, i8* %64, i64 %66
%68 = getelementptr inbounds i8, i8* %67, i64 4
store i8 %63, i8* %68
%69 = bitcast %union.anon* %7 to [8 x i8]*
%70 = getelementptr inbounds [8 x i8], [8 x i8]* %69, i64 0, i64 2
%71 = load i8, i8* %70
%72 = sext i8 %71 to i32
%73 = and i32 %72, 15
%74 = add nsw i32 %73, 48
%75 = trunc i32 %74 to i8
%76 = load i8*, i8** %6
%77 = load i32, i32* %5
%78 = sext i32 %77 to i64
%79 = getelementptr inbounds i8, i8* %76, i64 %78
%80 = getelementptr inbounds i8, i8* %79, i64 5
store i8 %75, i8* %80
%81 = bitcast %union.anon* %7 to [8 x i8]*
%82 = getelementptr inbounds [8 x i8], [8 x i8]* %81, i64 0, i64 3
%83 = load i8, i8* %82
%84 = sext i8 %83 to i32
%85 = and i32 %84, 15
%86 = add nsw i32 %85, 48
%87 = trunc i32 %86 to i8
%88 = load i8*, i8** %6
%89 = load i32, i32* %5
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds i8, i8* %88, i64 %90
%92 = getelementptr inbounds i8, i8* %91, i64 6
store i8 %87, i8* %92
%93 = bitcast %union.anon* %7 to [8 x i8]*
%94 = getelementptr inbounds [8 x i8], [8 x i8]* %93, i64 0, i64 3
%95 = load i8, i8* %94
%96 = sext i8 %95 to i32
%97 = and i32 %96, 15
%98 = add nsw i32 %97, 48
%99 = trunc i32 %98 to i8
%100 = load i8*, i8** %6
%101 = load i32, i32* %5
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds i8, i8* %100, i64 %102
%104 = getelementptr inbounds i8, i8* %103, i64 7
store i8 %99, i8* %104
%105 = bitcast %union.anon* %7 to [8 x i8]*
%106 = getelementptr inbounds [8 x i8], [8 x i8]* %105, i64 0, i64 4
%107 = load i8, i8* %106
%108 = sext i8 %107 to i32
%109 = and i32 %108, 15
%110 = add nsw i32 %109, 48
%111 = trunc i32 %110 to i8
%112 = load i8*, i8** %6
%113 = load i32, i32* %5
%114 = sext i32 %113 to i64
%115 = getelementptr inbounds i8, i8* %112, i64 %114
%116 = getelementptr inbounds i8, i8* %115, i64 8
store i8 %111, i8* %116
%117 = bitcast %union.anon* %7 to [8 x i8]*
%118 = getelementptr inbounds [8 x i8], [8 x i8]* %117, i64 0, i64 4
%119 = load i8, i8* %118
%120 = sext i8 %119 to i32
%121 = and i32 %120, 15
%122 = add nsw i32 %121, 48
%123 = trunc i32 %122 to i8
%124 = load i8*, i8** %6
%125 = load i32, i32* %5
%126 = sext i32 %125 to i64
%127 = getelementptr inbounds i8, i8* %124, i64 %126
%128 = getelementptr inbounds i8, i8* %127, i64 9
store i8 %123, i8* %128
%129 = bitcast %union.anon* %7 to [8 x i8]*
%130 = getelementptr inbounds [8 x i8], [8 x i8]* %129, i64 0, i64 5
%131 = load i8, i8* %130
%132 = sext i8 %131 to i32
%133 = and i32 %132, 15
%134 = add nsw i32 %133, 48
%135 = trunc i32 %134 to i8
%136 = load i8*, i8** %6
%137 = load i32, i32* %5
%138 = sext i32 %137 to i64
%139 = getelementptr inbounds i8, i8* %136, i64 %138
%140 = getelementptr inbounds i8, i8* %139, i64 10
store i8 %135, i8* %140
%141 = bitcast %union.anon* %7 to [8 x i8]*
%142 = getelementptr inbounds [8 x i8], [8 x i8]* %141, i64 0, i64 5
%143 = load i8, i8* %142
%144 = sext i8 %143 to i32
%145 = and i32 %144, 15
%146 = add nsw i32 %145, 48
%147 = trunc i32 %146 to i8
%148 = load i8*, i8** %6
%149 = load i32, i32* %5
%150 = sext i32 %149 to i64
%151 = getelementptr inbounds i8, i8* %148, i64 %150
%152 = getelementptr inbounds i8, i8* %151, i64 11
store i8 %147, i8* %152
%153 = bitcast %union.anon* %7 to [8 x i8]*
%154 = getelementptr inbounds [8 x i8], [8 x i8]* %153, i64 0, i64 6
%155 = load i8, i8* %154
%156 = sext i8 %155 to i32
%157 = and i32 %156, 15
%158 = add nsw i32 %157, 48
%159 = trunc i32 %158 to i8
%160 = load i8*, i8** %6
%161 = load i32, i32* %5
%162 = sext i32 %161 to i64
%163 = getelementptr inbounds i8, i8* %160, i64 %162
%164 = getelementptr inbounds i8, i8* %163, i64 12
store i8 %159, i8* %164
%165 = bitcast %union.anon* %7 to [8 x i8]*
%166 = getelementptr inbounds [8 x i8], [8 x i8]* %165, i64 0, i64 6
%167 = load i8, i8* %166
%168 = sext i8 %167 to i32
%169 = and i32 %168, 15
%170 = add nsw i32 %169, 48
%171 = trunc i32 %170 to i8
%172 = load i8*, i8** %6
%173 = load i32, i32* %5
%174 = sext i32 %173 to i64
%175 = getelementptr inbounds i8, i8* %172, i64 %174
%176 = getelementptr inbounds i8, i8* %175, i64 13
store i8 %171, i8* %176
%177 = bitcast %union.anon* %7 to [8 x i8]*
%178 = getelementptr inbounds [8 x i8], [8 x i8]* %177, i64 0, i64 7
%179 = load i8, i8* %178
%180 = sext i8 %179 to i32
%181 = and i32 %180, 15
%182 = add nsw i32 %181, 48
%183 = trunc i32 %182 to i8
%184 = load i8*, i8** %6
%185 = load i32, i32* %5
%186 = sext i32 %185 to i64
%187 = getelementptr inbounds i8, i8* %184, i64 %186
%188 = getelementptr inbounds i8, i8* %187, i64 14
store i8 %183, i8* %188
%189 = bitcast %union.anon* %7 to [8 x i8]*
%190 = getelementptr inbounds [8 x i8], [8 x i8]* %189, i64 0, i64 7
%191 = load i8, i8* %190
%192 = sext i8 %191 to i32
%193 = and i32 %192, 15
%194 = add nsw i32 %193, 48
%195 = trunc i32 %194 to i8
%196 = load i8*, i8** %6
%197 = load i32, i32* %5
%198 = sext i32 %197 to i64
%199 = getelementptr inbounds i8, i8* %196, i64 %198
%200 = getelementptr inbounds i8, i8* %199, i64 15
store i8 %195, i8* %200
ret void
}

LLVM IR (-O2):
define void @print_element(double %0, i32 %1, i8* nocapture writeonly %2) {
%4 = bitcast double %0 to i64
%5 = trunc i64 %4 to i8
%6 = and i8 %5, 15
%7 = or i8 %6, 48
%8 = sext i32 %1 to i64
%9 = getelementptr inbounds i8, i8* %2, i64 %8
store i8 %7, i8* %9
%10 = getelementptr inbounds i8, i8* %9, i64 1
store i8 %7, i8* %10
%11 = lshr i64 %4, 8
%12 = trunc i64 %11 to i8
%13 = and i8 %12, 15
%14 = or i8 %13, 48
%15 = getelementptr inbounds i8, i8* %9, i64 2
store i8 %14, i8* %15
%16 = getelementptr inbounds i8, i8* %9, i64 3
store i8 %14, i8* %16
%17 = lshr i64 %4, 16
%18 = trunc i64 %17 to i8
%19 = and i8 %18, 15
%20 = or i8 %19, 48
%21 = getelementptr inbounds i8, i8* %9, i64 4
store i8 %20, i8* %21
%22 = getelementptr inbounds i8, i8* %9, i64 5
store i8 %20, i8* %22
%23 = lshr i64 %4, 24
%24 = trunc i64 %23 to i8
%25 = and i8 %24, 15
%26 = or i8 %25, 48
%27 = getelementptr inbounds i8, i8* %9, i64 6
store i8 %26, i8* %27
%28 = getelementptr inbounds i8, i8* %9, i64 7
store i8 %26, i8* %28
%29 = lshr i64 %4, 32
%30 = trunc i64 %29 to i8
%31 = and i8 %30, 15
%32 = or i8 %31, 48
%33 = getelementptr inbounds i8, i8* %9, i64 8
store i8 %32, i8* %33
%34 = getelementptr inbounds i8, i8* %9, i64 9
store i8 %32, i8* %34
%35 = lshr i64 %4, 40
%36 = trunc i64 %35 to i8
%37 = and i8 %36, 15
%38 = or i8 %37, 48
%39 = getelementptr inbounds i8, i8* %9, i64 10
store i8 %38, i8* %39
%40 = getelementptr inbounds i8, i8* %9, i64 11
store i8 %38, i8* %40
%41 = lshr i64 %4, 48
%42 = trunc i64 %41 to i8
%43 = and i8 %42, 15
%44 = or i8 %43, 48
%45 = getelementptr inbounds i8, i8* %9, i64 12
store i8 %44, i8* %45
%46 = getelementptr inbounds i8, i8* %9, i64 13
store i8 %44, i8* %46
%47 = lshr i64 %4, 56
%48 = trunc i64 %47 to i8
%49 = and i8 %48, 15
%50 = or i8 %49, 48
%51 = getelementptr inbounds i8, i8* %9, i64 14
store i8 %50, i8* %51
%52 = getelementptr inbounds i8, i8* %9, i64 15
store i8 %50, i8* %52
ret void
}