user: Translate the below assembly code into C programming language:

```asm
<heir9>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x18(%rbp)
  xor    %eax,%eax
  mov    -0x38(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <heir10@plt>
  mov    %eax,-0x24(%rbp)
  mov    $0x0,%eax
  call   <blanks@plt>
  mov    $0x0,%eax
  call   <ch@plt>
  cmp    $0x2a,%eax
  setne  %bl
  mov    $0x0,%eax
  call   <ch@plt>
  cmp    $0x2f,%eax
  setne  %al
  and    %ebx,%eax
  movzbl %al,%ebx
  mov    $0x0,%eax
  call   <ch@plt>
  cmp    $0x25,%eax
  setne  %al
  movzbl %al,%eax
  and    %ebx,%eax
  test   %eax,%eax
  je     L109
  mov    -0x24(%rbp),%eax
  jmp    L106
L109:
  cmpl   $0x0,-0x24(%rbp)
  je     L57
  mov    -0x38(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <rvalue@plt>
L57:
  lea    D27(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <match@plt>
  test   %eax,%eax
  je     L83
  mov    $0x0,%eax
  call   <zpush@plt>
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <heir9>
  test   %eax,%eax
  je     L44
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <rvalue@plt>
L44:
  mov    $0x0,%eax
  call   <zpop@plt>
  mov    $0x0,%eax
  call   <mult@plt>
  jmp    L57
L83:
  lea    D0(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <match@plt>
  test   %eax,%eax
  je     L36
  mov    $0x0,%eax
  call   <zpush@plt>
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <heir10@plt>
  test   %eax,%eax
  je     L91
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <rvalue@plt>
L91:
  mov    $0x0,%eax
  call   <zpop@plt>
  mov    $0x0,%eax
  call   <div2@plt>
  jmp    L57
L36:
  lea    D13(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <match@plt>
  test   %eax,%eax
  je     L86
  mov    $0x0,%eax
  call   <zpush@plt>
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <heir10@plt>
  test   %eax,%eax
  je     L17
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <rvalue@plt>
L17:
  mov    $0x0,%eax
  call   <zpop@plt>
  mov    $0x0,%eax
  call   <zmod@plt>
  jmp    L57
L86:
  mov    $0x0,%eax
L106:
  mov    -0x18(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L26
  call   <__stack_chk_fail@plt>
L26:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: parse_data
arguments: label: D27
type_infered: string
name: parse_data
arguments: label: D0
type_infered: string
name: parse_data
arguments: label: D13
type_infered: string

tool: D27: *

tool: D0: /

tool: D13: %

assistant: ```c
heir9(lval) int lval[];
{
  int k, lval2[2];
  k = heir10(lval);
  blanks();
  if ((ch() != '*') & (ch() != '/') & (ch() != '%'))
    return k;
  if (k)
    rvalue(lval);
  while (1) {
    if (match("*")) {
      zpush();
      if (heir9(lval2))
        rvalue(lval2);
      zpop();
      mult();
    } else if (match("/")) {
      zpush();
      if (heir10(lval2))
        rvalue(lval2);
      zpop();
      div2();
    } else if (match("%")) {
      zpush();
      if (heir10(lval2))
        rvalue(lval2);
      zpop();
      zmod();
    } else
      return 0;
  }
}
```