user: Converte this assembly snippet into its equivalent C code:

```asm
<main>:
  endbr64
  push   %r13
  push   %r12
  push   %rbp
  lea    D87(%rip),%rbp
  push   %rbx
  lea    0x20(%rbp),%r13
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x18(%rsp)
  xor    %eax,%eax
  mov    %rsp,%rbx
  mov    %rbx,%r12
L1:
  mov    %rbp,%rdi
  add    $0x8,%rbp
  add    $0x4,%r12
  call   <ran4@plt>
  movss  %xmm0,(%r12)
  cmp    %rbp,%r13
  jne    L1
  lea    D131(%rip),%rdi
  xor    %eax,%eax
  lea    0x10(%rbx),%r12
  call   <printf@plt>
  lea    D102(%rip),%rbp
L19:
  pxor   %xmm0,%xmm0
  mov    %rbp,%rdi
  mov    $0x1,%eax
  add    $0x4,%rbx
  cvtss2sd (%rbx),%xmm0
  call   <printf@plt>
  cmp    %rbx,%r12
  jne    L19
  lea    D98(%rip),%rbp
  lea    D51(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D61(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D115(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D60(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D67(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D50(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D39(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D114(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D75(%rip),%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    %rbp,%rdi
  xor    %eax,%eax
  lea    D0(%rip),%rsi
  call   <printf@plt>
  mov    $0xa,%edi
  call   <putchar@plt>
  mov    0x18(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L11
  add    $0x28,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  ret
L11:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D131
type_infered: string
name: unpack_data
arguments: tag: D102
type_infered: string
name: unpack_data
arguments: tag: D98
type_infered: string
name: unpack_data
arguments: tag: D51
type_infered: string
name: unpack_data
arguments: tag: D61
type_infered: string
name: unpack_data
arguments: tag: D115
type_infered: string
name: unpack_data
arguments: tag: D60
type_infered: string
name: unpack_data
arguments: tag: D67
type_infered: string
name: unpack_data
arguments: tag: D50
type_infered: string
name: unpack_data
arguments: tag: D39
type_infered: string
name: unpack_data
arguments: tag: D114
type_infered: string
name: unpack_data
arguments: tag: D75
type_infered: string
name: unpack_data
arguments: tag: D0
type_infered: string

tool: D131: ran4 gets values: 

tool: D102: %15.6f

tool: D98: %15s

tool: D51: 
    IEEE answers: 

tool: D61: 0.219120

tool: D115: 0.849246

tool: D60: 0.375290

tool: D67: 0.457334

tool: D50: 
     VAX answers: 

tool: D39: 0.275898

tool: D114: 0.208204

tool: D75: 0.034307

tool: D0: 0.838676

assistant: ```c
int main(void) {
  int i;
  static long idum[5] = {0, -1, 99, -99, 99};
  static char *ansvax[5] = {"", "0.275898", "0.208204", "0.034307", "0.838676"};
  static char *ansiee[5] = {"", "0.219120", "0.849246", "0.375290", "0.457334"};
  float random[5];
  for (i = 1; i <= 4; i++)
    random[i] = ran4(&idum[i]);
  printf("ran4 gets values: ");
  for (i = 1; i <= 4; i++)
    printf("%15.6f", random[i]);
  printf("\n    IEEE answers: ");
  for (i = 1; i <= 4; i++)
    printf("%15s", ansiee[i]);
  printf("\n     VAX answers: ");
  for (i = 1; i <= 4; i++)
    printf("%15s", ansvax[i]);
  printf("\n");
  return 0;
}
```