user: What is the c source code of the assembly code below:

```asm
<main>:
  endbr64
  push   %rbx
  sub    $0x10,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x8(%rsp)
  xor    %eax,%eax
  lea    D132(%rip),%rdi
  call   <vinit@plt>
  lea    D216(%rip),%rdi
  call   <winopen@plt>
  mov    $0x106,%edi
  call   <unqdevice@plt>
  mov    $0x101,%edi
  call   <qdevice@plt>
  lea    0x6(%rsp),%rbx
L1:
  mov    %rbx,%rdi
  call   <qread@plt>
  cmp    $0x105,%eax
  jne    L1
  movsd  D119(%rip),%xmm2
  movsd  D261(%rip),%xmm1
  mov    D158(%rip),%rax
  movq   %rax,%xmm0
  mov    $0x384,%edi
  call   <perspective@plt>
  movsd  D228(%rip),%xmm0
  mov    $0x0,%edi
  pxor   %xmm5,%xmm5
  movapd %xmm5,%xmm4
  movapd %xmm5,%xmm3
  movsd  D14(%rip),%xmm2
  movapd %xmm0,%xmm1
  call   <lookat@plt>
  mov    $0x0,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <clear@plt>
  mov    $0x0,%eax
  call   <makesphere@plt>
  mov    $0x6,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <pushmatrix@plt>
  mov    D274(%rip),%rax
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  movq   %rax,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  mov    $0x0,%eax
  call   <popmatrix@plt>
  mov    $0x7,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <pushmatrix@plt>
  movsd  D4(%rip),%xmm2
  movsd  D176(%rip),%xmm1
  pxor   %xmm0,%xmm0
  call   <translate@plt>
  mov    D140(%rip),%rax
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  movq   %rax,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  mov    $0x0,%eax
  call   <popmatrix@plt>
  mov    $0x1,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <pushmatrix@plt>
  movsd  D262(%rip),%xmm2
  movsd  D35(%rip),%xmm1
  pxor   %xmm0,%xmm0
  call   <translate@plt>
  movsd  D55(%rip),%xmm0
  movapd %xmm0,%xmm2
  movapd %xmm0,%xmm1
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  mov    $0x0,%eax
  call   <popmatrix@plt>
  mov    $0x2,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <pushmatrix@plt>
  mov    D160(%rip),%rax
  movq   %rax,%xmm2
  movsd  D125(%rip),%xmm1
  pxor   %xmm0,%xmm0
  call   <translate@plt>
  mov    D259(%rip),%rax
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  movq   %rax,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  mov    $0x0,%eax
  call   <popmatrix@plt>
  mov    $0x3,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <pushmatrix@plt>
  mov    D160(%rip),%rax
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  pxor   %xmm0,%xmm0
  call   <translate@plt>
  movsd  D143(%rip),%xmm0
  movapd %xmm0,%xmm2
  movapd %xmm0,%xmm1
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  mov    $0x0,%eax
  call   <popmatrix@plt>
  mov    $0x4,%edi
  call   <color@plt>
  mov    $0x0,%eax
  call   <pushmatrix@plt>
  mov    D160(%rip),%rax
  movq   %rax,%xmm2
  movsd  D16(%rip),%xmm1
  pxor   %xmm0,%xmm0
  call   <translate@plt>
  mov    D140(%rip),%rax
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  movq   %rax,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  mov    $0x0,%eax
  call   <popmatrix@plt>
  lea    D272(%rip),%rdi
  call   <hfont@plt>
  mov    D158(%rip),%rax
  movq   %rax,%xmm3
  pxor   %xmm2,%xmm2
  movq   %rax,%xmm1
  movapd %xmm2,%xmm0
  call   <ortho2@plt>
  mov    $0x1,%edi
  call   <hcentertext@plt>
  mov    D259(%rip),%rax
  movq   %rax,%xmm1
  movsd  D169(%rip),%xmm0
  call   <htextsize@plt>
  mov    D274(%rip),%rax
  movq   %rax,%xmm1
  movsd  D103(%rip),%xmm0
  call   <move2@plt>
  movsd  D114(%rip),%xmm0
  call   <htextang@plt>
  lea    D166(%rip),%rdi
  call   <hcharstr@plt>
  lea    0x6(%rsp),%rdi
  call   <qread@plt>
  mov    $0x0,%eax
  call   <gexit@plt>
  mov    0x8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L18
  mov    $0x0,%eax
  add    $0x10,%rsp
  pop    %rbx
  ret
L18:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: tag: D132
type_guessed: string
name: read_data
arguments: tag: D216
type_guessed: string
name: read_data
arguments: tag: D119
type_guessed: f64
name: read_data
arguments: tag: D261
type_guessed: f64
name: read_data
arguments: tag: D158
type_guessed: f64
name: read_data
arguments: tag: D228
type_guessed: f64
name: read_data
arguments: tag: D14
type_guessed: f64
name: read_data
arguments: tag: D274
type_guessed: f64
name: read_data
arguments: tag: D4
type_guessed: f32[2]
name: read_data
arguments: tag: D176
type_guessed: f32[2]
name: read_data
arguments: tag: D140
type_guessed: f64
name: read_data
arguments: tag: D262
type_guessed: f32[2]
name: read_data
arguments: tag: D35
type_guessed: f64
name: read_data
arguments: tag: D55
type_guessed: f64
name: read_data
arguments: tag: D160
type_guessed: f32[2]
name: read_data
arguments: tag: D125
type_guessed: f32[2]
name: read_data
arguments: tag: D259
type_guessed: f64
name: read_data
arguments: tag: D143
type_guessed: f64
name: read_data
arguments: tag: D16
type_guessed: f32[2]
name: read_data
arguments: tag: D272
type_guessed: string
name: read_data
arguments: tag: D169
type_guessed: f64
name: read_data
arguments: tag: D103
type_guessed: f64
name: read_data
arguments: tag: D114
type_guessed: f32[2]
name: read_data
arguments: tag: D166
type_guessed: string

tool: D132: mswin

tool: D216: balls

tool: D119: 500

tool: D261: 0.001

tool: D158: 1

tool: D228: 13

tool: D14: 8

tool: D274: 0.5

tool: {"D4": [0.0,2.6875]}

tool: {"D176": [0.0,-2.6875]}

tool: D140: 0.3

tool: {"D262": [0.0,2.4375]}

tool: D35: 10

tool: D55: 0.2

tool: {"D160": [0.0,-2.5625]}

tool: {"D125": [0.0,2.71875]}

tool: D259: 0.15

tool: D143: 0.12

tool: {"D16": [0.0,-2.8125]}

tool: D272: times.rb

tool: D169: 0.08

tool: D103: 0.8

tool: {"D114": [0.0,-3.3515625]}

tool: D166: I'm very ordinary!

assistant: ```c
main() {
  short val;
  vinit("mswin");
  winopen("balls");
  unqdevice(262);
  qdevice(257);
  while (qread(&val) != 261)
    ;
  perspective(900, 1.0, 0.001, 500.0);
  lookat(13.0, 13.0, 8.0, 0.0, 0.0, 0.0, 0);
  color(0);
  clear();
  makesphere();
  color(6);
  pushmatrix();
  scale(0.5, 0.5, 0.5);
  callobj(1L);
  popmatrix();
  color(7);
  pushmatrix();
  translate(0.0, -1.4 * 10.0, 1.4 * 10.0);
  scale(0.3, 0.3, 0.3);
  callobj(1L);
  popmatrix();
  color(1);
  pushmatrix();
  translate(0.0, 10.0, 0.7 * 10.0);
  scale(0.2, 0.2, 0.2);
  callobj(1L);
  popmatrix();
  color(2);
  pushmatrix();
  translate(0.0, 1.5 * 10.0, -10.0);
  scale(0.15, 0.15, 0.15);
  callobj(1L);
  popmatrix();
  color(3);
  pushmatrix();
  translate(0.0, -10.0, -10.0);
  scale(0.12, 0.12, 0.12);
  callobj(1L);
  popmatrix();
  color(4);
  pushmatrix();
  translate(0.0, -2.0 * 10.0, -10.0);
  scale(0.3, 0.3, 0.3);
  callobj(1L);
  popmatrix();
  hfont("times.rb");
  ortho2(0.0, 1.0, 0.0, 1.0);
  hcentertext(1);
  htextsize(0.08, 0.15);
  move2(0.8, 0.5);
  htextang(-90.0);
  hcharstr("I'm very ordinary!");
  qread(&val);
  gexit();
}
```