(List
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS generate]} {[LIT_CHARS the]} {[LIT_CHARS ksh]} {[LIT_CHARS math]} {[LIT_CHARS builtin]} {[LIT_CHARS table]})
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS include]} {[LIT_CHARS math.tab]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('command', {[VarSub 0]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('iffeflags', {[DQ [LIT_CHARS "-n -v"]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('iffehdrs', {[DQ [LIT_CHARS math.h]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('iffelibs', {[DQ [LIT_CHARS -lm]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('table', {[LIT_CHARS /dev/null]})])
  (Com {[LIT_CHARS eval]} {[VarSub 1]})
  (Com {[LIT_CHARS shift]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('table', {[VarSub 1]})])
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS check]} {[LIT_CHARS long]} {[LIT_CHARS double]})
  (Com {[LIT_CHARS eval]} {[ComSub (Com redirects=[(DescriptorRedirectNode target={[VarSub stderr]} <REDIR_GREATAND "2>&"> 2)]{[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS typ]} {[LIT_CHARS long.double]})]})
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS check]} {[LIT_CHARS ast_standards.h]})
  (Com {[LIT_CHARS eval]} {[ComSub (Com {[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -F]} {[LIT_CHARS ast_standards.h]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS tst]} {[LIT_CHARS use_ast_standards]} {[LIT_CHARS -lm]} {[SQ <LIT_CHARS "note{">]} {[SQ <LIT_CHARS "math.h needs ast_standards.h">]} {[SQ <LIT_CHARS "}end">]} {[SQ <LIT_CHARS "link{">]} {[SQ <LIT_CHARS "#include <math.h>">]} {[SQ <LIT_CHARS "#ifndef isgreater">]} {[SQ <LIT_CHARS "#define isgreater(a,b) 0">]} {[SQ <LIT_CHARS "#endif">]} {[SQ <LIT_CHARS "int main() { return isgreater(0.0,1.0); }">]} {[SQ <LIT_CHARS "}end">]})]})
  (Case to_match={[VarSub _use_ast_standards]}, pat_word_list=[[{[LIT_CHARS 1]}]]
    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('iffeflags', {[DQ [VarSub iffeflags][LIT_CHARS " -F ast_standards.h"]]})])
  )
  (Com {[LIT_CHARS eval]} {[ComSub (Com {[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS tst]} {[LIT_CHARS use_ieeefp]} {[LIT_CHARS -lm]} {[SQ <LIT_CHARS "note{">]} {[SQ <LIT_CHARS "ieeefp.h plays nice">]} {[SQ <LIT_CHARS "}end">]} {[SQ <LIT_CHARS "link{">]} {[SQ <LIT_CHARS "#include <math.h>">]} {[SQ <LIT_CHARS "#include <ieeefp.h>">]} {[SQ <LIT_CHARS "int main() { return 0; }">]} {[SQ <LIT_CHARS "}end">]})]})
  (Case to_match={[VarSub _use_ieeefp]}, pat_word_list=[[{[LIT_CHARS 1]}]]
    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('iffehdrs', {[DQ [VarSub iffehdrs][LIT_CHARS " ieeefp.h"]]})])
  )
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS read]} {[LIT_CHARS the]} {[LIT_CHARS table]})
  (Com {[LIT_CHARS exec]}
    <
    (FilenameRedirectNode filename={[VarSub table]} <REDIR_LESS "<"> 0),
    >
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ifs', {[VarSub IFS]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('libs', {[SQ ]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('names', {[SQ ]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('nums', {[SQ ]})])
  (While
    (Com {[LIT_CHARS read]} {[LIT_CHARS type]} {[LIT_CHARS args]} {[LIT_CHARS name]} {[LIT_CHARS aka]})
    (Case to_match={[VarSub type]}, pat_word_list=[[{[LIT_OTHER "["] [LIT_CHARS fix] [LIT_OTHER "]"]}]]
      (List
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('names', {[DQ [VarSub names][LIT_CHARS " "][VarSub name]]})])
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('libs', {[DQ [VarSub libs][LIT_CHARS ","][VarSub name]]})])
        (Case to_match={[VarSub _typ_long_double]}, pat_word_list=[[{[LIT_CHARS 1]}]]
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('libs', {[DQ [VarSub libs][LIT_CHARS ","][VarSub name][LIT_CHARS l]]})])
        )
        (For a [{[VarSub aka]}])
          (Case to_match={[VarSub a]}, pat_word_list=[[{[SQ <LIT_CHARS "{">] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"] [LIT_OTHER "="] [LIT_OTHER "*"]}]]
            (Com {[LIT_CHARS break]})
            (List
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('IFS', {[SQ <LIT_CHARS "=|">]})])
              (Com {[LIT_CHARS set]} {[VarSub a]})
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('IFS', {[VarSub ifs]})])
              (Case to_match={[DQ [LIT_CHARS ","][VarSub libs]]}, pat_word_list=[[{[LIT_OTHER "*"] [LIT_COMMA ","] [VarSub 1] [LIT_COMMA ","] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"]}]]
                (ElseTrue)
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('names', {[DQ [VarSub names][LIT_CHARS " "][VarSub 1]]})])
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('libs', {[DQ [VarSub libs][LIT_CHARS ","][VarSub 1]]})])
                  (Case to_match={[VarSub _typ_long_double]}, pat_word_list=[[{[LIT_CHARS 1]}]]
                    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('libs', {[DQ [VarSub libs][LIT_CHARS ","][VarSub 1][LIT_CHARS l]]})])
                  )
                )
              )
              (Com {[LIT_CHARS shift]})
              (While
                (Com {[LIT_OTHER ":"]})
                (List
                  (Case to_match={[VarSub #]}, pat_word_list=[[{[LIT_CHARS 0]}]]
                    (Com {[LIT_CHARS break]})
                  )
                  (Case to_match={[DQ [LIT_CHARS ","][VarSub nums]]}, pat_word_list=[[{[LIT_OTHER "*"] [LIT_COMMA ","] [VarSub 1] [LIT_COMMA ","] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"]}]]
                    (ElseTrue)
                    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('nums', {[DQ [VarSub nums][LIT_CHARS ","][VarSub 1]]})])
                  )
                  (Com {[LIT_CHARS shift]})
                )
              )
            )
          )
        )
        (Com {[LIT_CHARS eval]} {[LIT_CHARS TYPE_] [VarSub name] [LIT_OTHER "="] [SQ <LIT_CHARS "$type">]} {[LIT_CHARS ARGS_] [VarSub name] [LIT_OTHER "="] [SQ <LIT_CHARS "$args">]} {[LIT_CHARS AKA_] [VarSub name] [LIT_OTHER "="] [SQ <LIT_CHARS "$aka">]})
      )
    )
  )
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS check]} {[LIT_CHARS the]} {[LIT_CHARS math]} {[LIT_CHARS library]})
  (Com {[LIT_CHARS eval]} {[ComSub (Com redirects=[(DescriptorRedirectNode target={[VarSub stderr]} <REDIR_GREATAND "2>&"> 2)]{[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS lib]} {[VarSub libs]} {[VarSub iffehdrs]} {[VarSub iffelibs]})]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('lib', {[SQ ]})])
  (For name [{[VarSub names]}])
    (List
      (Com {[LIT_CHARS eval]} {[LIT_VAR_LIKE "x="] [SQ <LIT_CHARS "$">] [LIT_CHARS _lib_] [VarSub name] [LIT_CHARS l] =} {[LIT_VAR_LIKE "y="] [SQ <LIT_CHARS "$">] [LIT_CHARS _lib_] [VarSub name] =})
      (Case to_match={[VarSub x]}, pat_word_list=[[{[LIT_CHARS 1]}]]
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('lib', {[DQ [VarSub lib][LIT_CHARS ","][VarSub name][LIT_CHARS l]]})])
      )
      (Case to_match={[VarSub y]}, pat_word_list=[[{[LIT_CHARS 1]}]]
        (Case to_match={[VarSub x]}, pat_word_list=[[{[SQ ]}]]
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('lib', {[DQ [VarSub lib][LIT_CHARS ","][VarSub name]]})])
        )
      )
    )
  )
  (Com {[LIT_CHARS eval]} {[ComSub (Com redirects=[(DescriptorRedirectNode target={[VarSub stderr]} <REDIR_GREATAND "2>&"> 2)]{[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS dat] [LIT_COMMA ","] [LIT_CHARS npt] [LIT_COMMA ","] [LIT_CHARS mac]} {[VarSub lib]} {[VarSub iffehdrs]} {[VarSub iffelibs]})]})
  (Com {[LIT_CHARS eval]} {[ComSub (Com redirects=[(DescriptorRedirectNode target={[VarSub stderr]} <REDIR_GREATAND "2>&"> 2)]{[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS num]} {[VarSub nums]} {[VarSub iffehdrs]} {[VarSub iffelibs]})]})
  (Com {[LIT_CHARS cat]}
    <
    (HereDocRedirectNode here_end='!' do_expansion=True body_word={[DQ [LIT_CHARS "#pragma prototyped\n"][LIT_CHARS "\n"][LIT_CHARS "/* : : generated by "][VarSub command][LIT_CHARS " from "][VarSub table][LIT_CHARS " : : */\n"][LIT_CHARS "\n"][LIT_CHARS "typedef Sfdouble_t (*Math_f)(Sfdouble_t,...);\n"][LIT_CHARS "\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Case to_match={[VarSub _use_ast_standards]}, pat_word_list=[[{[LIT_CHARS 1]}]]
    (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "#include <ast_standards.h>"]]})
  )
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "#include <math.h>"]]})
  (Case to_match={[VarSub _hdr_ieeefp]}, pat_word_list=[[{[LIT_CHARS 1]}]]
    (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "#include <ieeefp.h>"]]})
  )
  (Com {[LIT_CHARS echo]})
  (Com {[LIT_OTHER ":"]} {[LIT_CHARS generate]} {[LIT_CHARS the]} {[LIT_CHARS intercept]} {[LIT_CHARS functions]} {[LIT_CHARS and]} {[LIT_CHARS table]} {[LIT_CHARS entries]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('nl', {[SQ <LIT_CHARS "\n">]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ht', {[SQ <LIT_CHARS "\t">]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tab', {[SQ ]})])
  (For name [{[VarSub names]}])
    (List
      (Com {[LIT_CHARS eval]} {[LIT_VAR_LIKE "x="] [SQ <LIT_CHARS "$">] [LIT_CHARS _lib_] [VarSub name] [LIT_CHARS l] =} {[LIT_VAR_LIKE "y="] [SQ <LIT_CHARS "$">] [LIT_CHARS _lib_] [VarSub name] =} {[LIT_VAR_LIKE "r="] [SQ <LIT_CHARS "$">] [LIT_CHARS TYPE_] [VarSub name] =} {[LIT_VAR_LIKE "a="] [SQ <LIT_CHARS "$">] [LIT_CHARS ARGS_] [VarSub name] =} {[LIT_VAR_LIKE "aka="] [SQ <LIT_CHARS "$">] [LIT_CHARS AKA_] [VarSub name] =})
      (Case to_match={[VarSub r]}, pat_word_list=[[{[LIT_CHARS i]}], [{[LIT_CHARS x]}], [{[LIT_OTHER "*"]}]]
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('L', {[LIT_CHARS int]}), ('R', {[LIT_CHARS 1]})])
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('L', {[LIT_CHARS Sfdouble_t]}), ('R', {[LIT_CHARS 4]})])
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('L', {[LIT_CHARS Sfdouble_t]}), ('R', {[LIT_CHARS 0]})])
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('F', {[LIT_CHARS local_] [VarSub name]})])
      (Case to_match={[VarSub x] [LIT_OTHER ":"] [VarSub y]}, pat_word_list=[[{[LIT_CHARS 1] [LIT_OTHER ":"] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_CHARS 1]}], [{[LIT_OTHER "*"]}]]
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('f', {[VarSub name] [LIT_CHARS l]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('t', {[LIT_CHARS Sfdouble_t]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('local', {[SQ ]})])
        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('f', {[VarSub name]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('t', {[LIT_CHARS double]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('local', {[VarSub _typ_long_double]})])
        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('body', {[SQ ]})])
          (For k [{[VarSub aka]}])
            (List
              (Case to_match={[VarSub body]}, pat_word_list=[[{[LIT_OTHER "?"] [LIT_OTHER "*"]}]]
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('body', {[DQ [VarSub body][LIT_CHARS " "][VarSub k]]})])
                  (Com {[LIT_CHARS continue]})
                )
              )
              (Case to_match={[VarSub k]}, pat_word_list=[[{[SQ <LIT_CHARS "{">] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"] [LIT_OTHER "="] [LIT_OTHER "*"]}]]
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('body', {[VarSub k]})])
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('IFS', {[SQ <LIT_CHARS "=|">]})])
                  (Com {[LIT_CHARS set]} {[VarSub k]})
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('IFS', {[VarSub ifs]})])
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('f', {[VarSub 1]})])
                  (Com {[LIT_CHARS shift]})
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('v', {[VarSub *]})])
                  (Com {[LIT_CHARS eval]} {[LIT_VAR_LIKE "x="] [SQ <LIT_CHARS "$">] [LIT_CHARS _lib_] [VarSub f] [LIT_CHARS l] =} {[LIT_VAR_LIKE "y="] [SQ <LIT_CHARS "$">] [LIT_CHARS _lib_] [VarSub f] =})
                  (Case to_match={[VarSub x] [LIT_OTHER ":"] [VarSub y]}, pat_word_list=[[{[LIT_CHARS 1] [LIT_OTHER ":"] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_CHARS 1]}], [{[LIT_OTHER "*"]}]]
                    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('f', {[VarSub f] [LIT_CHARS l]})])
                    (ElseTrue)
                    (Com {[LIT_CHARS continue]})
                  )
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('y', {[SQ ]})])
                  (While
                    (Com {[LIT_OTHER ":"]})
                    (List
                      (Case to_match={[VarSub #]}, pat_word_list=[[{[LIT_CHARS 0]}]]
                        (Com {[LIT_CHARS break]})
                      )
                      (Com {[LIT_CHARS eval]} {[LIT_VAR_LIKE "x="] [SQ <LIT_CHARS "$">] [LIT_CHARS _num_] [VarSub 1] =})
                      (Case to_match={[VarSub x]}, pat_word_list=[[{[LIT_CHARS 1]}]]
                        (List
                          (Case to_match={[VarSub y]}, pat_word_list=[[{[LIT_OTHER "?"] [LIT_OTHER "*"]}]]
                            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('y', {[DQ [VarSub y][LIT_CHARS " || "]]})])
                          )
                          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('y', {[DQ [VarSub y][LIT_CHARS "q == "][VarSub 1]]})])
                        )
                      )
                      (Com {[LIT_CHARS shift]})
                    )
                  )
                  (Case to_match={[VarSub y]}, pat_word_list=[[{[SQ ]}], [{[LIT_OTHER "*"]}]]
                    (ElseTrue)
                    (List
                      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('r', {[LIT_CHARS int]}), ('R', {[LIT_CHARS 1]})])
                      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "static "][VarSub r][LIT_CHARS " "][VarSub F][LIT_CHARS "(Sfdouble_t a1) { "][VarSub r][LIT_CHARS " q = "][VarSub f][LIT_CHARS "(a1); return "][VarSub y][LIT_CHARS "; }"]]})
                      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tab', {[DQ [VarSub tab][VarSub nl][VarSub ht][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS 0][VarSub R][VarSub a][VarSub name][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS ","][VarSub ht][LIT_CHARS "(Math_f)"][VarSub F][LIT_CHARS ","]]})])
                      (Com {[LIT_CHARS break]})
                    )
                  )
                )
              )
            )
          )
          (Case to_match={[VarSub body]}, pat_word_list=[[{[LIT_OTHER "?"] [LIT_OTHER "*"]}]]
            (List
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [LIT_CHARS "static "][VarSub L][LIT_CHARS " "][VarSub F][LIT_CHARS "("]]})])
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sep', {[SQ ]})])
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ta', {[SQ ]})])
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tc', {[SQ ]})])
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('td', {[SQ ]})])
              (For p [{[LIT_CHARS 1]}, {[LIT_CHARS 2]}, {[LIT_CHARS 3]}, {[LIT_CHARS 4]}, {[LIT_CHARS 5]}, {[LIT_CHARS 6]}, {[LIT_CHARS 7]}, {[LIT_CHARS 8]}, {[LIT_CHARS 9]}])
                (List
                  (Case to_match={[VarSub R] [LIT_OTHER ":"] [VarSub p]}, pat_word_list=[[{[LIT_CHARS 4] [LIT_OTHER ":"] [LIT_CHARS 2]}], [{[LIT_OTHER "*"]}]]
                    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('T', {[LIT_CHARS int]})])
                    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('T', {[LIT_CHARS Sfdouble_t]})])
                  )
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][VarSub sep][VarSub T][LIT_CHARS " a"][VarSub p]]})])
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ta', {[DQ [VarSub ta][VarSub sep][LIT_CHARS a][VarSub p]]})])
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tc', {[DQ [VarSub tc][VarSub sep][LIT_CHARS 0]]})])
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('td', {[DQ [VarSub td][VarSub T][LIT_CHARS " a"][VarSub p][LIT_CHARS ";"]]})])
                  (Case to_match={[VarSub a]}, pat_word_list=[[{[VarSub p]}]]
                    (Com {[LIT_CHARS break]})
                  )
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sep', {[DQ [LIT_CHARS ","]]})])
                )
              )
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('_it_links_', {[LIT_CHARS 0]})])
              (Com {[LIT_CHARS eval]} {[ComSub (Com redirects=[(DescriptorRedirectNode target={[VarSub stderr]} <REDIR_GREATAND "2>&"> 2)]{[LIT_CHARS iffe]} {[VarSub iffeflags]} {[LIT_CHARS -c]} {[DQ [VarSub cc]]} {[LIT_CHARS -]} {[LIT_CHARS tst]} {[LIT_CHARS it_links_]} {[LIT_CHARS note] [LIT_LBRACE "{"]} {[VarSub F]} {[LIT_CHARS function]} {[LIT_CHARS links]} {[LIT_RBRACE "}"] [LIT_CHARS end]} {[LIT_CHARS link] [LIT_LBRACE "{"]} {[DQ [LIT_CHARS "static "][VarSub L][LIT_CHARS " "][VarSub F][LIT_CHARS "("][VarSub ta][LIT_CHARS ")"][VarSub td][VarSub body][LIT_CHARS "int main(){return "][VarSub F][LIT_CHARS "("][VarSub tc][LIT_CHARS ")!=0;}"]]} {[LIT_RBRACE "}"] [LIT_CHARS end]} {[LIT_CHARS sfio.h]} {[VarSub iffehdrs]} {[VarSub iffelibs]})]})
              (Case to_match={[VarSub _it_links_]}, pat_word_list=[[{[LIT_CHARS 1]}]]
                (List
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][LIT_CHARS ")"][VarSub body]]})])
                  (Com {[LIT_CHARS echo]} {[DQ [VarSub code]]})
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tab', {[DQ [VarSub tab][VarSub nl][VarSub ht][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS 0][VarSub R][VarSub a][VarSub name][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS ","][VarSub ht][LIT_CHARS "(Math_f)"][VarSub F][LIT_CHARS ","]]})])
                )
              )
            )
          )
          (Com {[LIT_CHARS continue]})
        )
      )
      (Case to_match={[VarSub r]}, pat_word_list=[[{[LIT_CHARS i]}], [{[LIT_OTHER "*"]}]]
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('r', {[LIT_CHARS int]})])
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('r', {[VarSub t]})])
      )
      (Com {[LIT_CHARS eval]} {[LIT_VAR_LIKE "n="] [SQ <LIT_CHARS "$">] [LIT_CHARS _npt_] [VarSub f] =} {[LIT_VAR_LIKE "m="] [SQ <LIT_CHARS "$">] [LIT_CHARS _mac_] [VarSub f] =} {[LIT_VAR_LIKE "d="] [SQ <LIT_CHARS "$">] [LIT_CHARS _dat_] [VarSub f] =})
      (Case to_match={[VarSub d] [LIT_OTHER ":"] [VarSub m] [LIT_OTHER ":"] [VarSub n]}, pat_word_list=[[{[LIT_CHARS 1] [LIT_OTHER ":"] [LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_OTHER "*"]}, {[LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER ":"] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_CHARS 1]}]]
        (ElseTrue)
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [LIT_CHARS "extern "][VarSub r][LIT_CHARS " "][VarSub f][LIT_CHARS "("]]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sep', {[SQ ]})])
          (For p [{[LIT_CHARS 1]}, {[LIT_CHARS 2]}, {[LIT_CHARS 3]}, {[LIT_CHARS 4]}, {[LIT_CHARS 5]}, {[LIT_CHARS 6]}, {[LIT_CHARS 7]}])
            (List
              (Case to_match={[VarSub p] [LIT_OTHER ":"] [VarSub f]}, pat_word_list=[[{[LIT_CHARS 2] [LIT_OTHER ":"] [LIT_CHARS ldexp] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"]}]]
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][VarSub sep][LIT_CHARS int]]})])
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][VarSub sep][VarSub t]]})])
              )
              (Case to_match={[VarSub a]}, pat_word_list=[[{[VarSub p]}]]
                (Com {[LIT_CHARS break]})
              )
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sep', {[DQ [LIT_CHARS ","]]})])
            )
          )
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][LIT_CHARS ");"]]})])
          (Com {[LIT_CHARS echo]} {[DQ [VarSub code]]})
        )
      )
      (Case to_match={[VarSub local] [LIT_OTHER ":"] [VarSub m] [LIT_OTHER ":"] [VarSub n] [LIT_OTHER ":"] [VarSub d]}, pat_word_list=[[{[LIT_CHARS 1] [LIT_OTHER ":"] [LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_OTHER "*"]}, {[LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER ":"] [LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_OTHER "*"]}, {[LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_OTHER "*"] [LIT_OTHER ":"] [LIT_CHARS 1] [LIT_OTHER ":"]}]]
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('args', {[SQ ]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [LIT_CHARS "static "][VarSub L][LIT_CHARS " local_"][VarSub f][LIT_CHARS "("]]})])
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sep', {[SQ ]})])
          (For p [{[LIT_CHARS 1]}, {[LIT_CHARS 2]}, {[LIT_CHARS 3]}, {[LIT_CHARS 4]}, {[LIT_CHARS 5]}, {[LIT_CHARS 6]}, {[LIT_CHARS 7]}, {[LIT_CHARS 8]}, {[LIT_CHARS 9]}])
            (List
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('args', {[DQ [VarSub args][VarSub sep][LIT_CHARS a][VarSub p]]})])
              (Case to_match={[VarSub R] [LIT_OTHER ":"] [VarSub p]}, pat_word_list=[[{[LIT_CHARS 4] [LIT_OTHER ":"] [LIT_CHARS 2]}], [{[LIT_OTHER "*"]}]]
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('T', {[LIT_CHARS int]})])
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('T', {[LIT_CHARS Sfdouble_t]})])
              )
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][VarSub sep][VarSub T][LIT_CHARS " a"][VarSub p]]})])
              (Case to_match={[VarSub a]}, pat_word_list=[[{[VarSub p]}]]
                (Com {[LIT_CHARS break]})
              )
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('sep', {[DQ [LIT_CHARS ","]]})])
            )
          )
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('code', {[DQ [VarSub code][LIT_CHARS "){return "][VarSub f][LIT_CHARS "("][VarSub args][LIT_CHARS ");}"]]})])
          (Com {[LIT_CHARS echo]} {[DQ [VarSub code]]})
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('f', {[LIT_CHARS local_] [VarSub f]})])
        )
      )
      (For x [{[VarSub name]}, {[VarSub aka]}])
        (List
          (Case to_match={[VarSub x]}, pat_word_list=[[{[SQ <LIT_CHARS "{">] [LIT_OTHER "*"]}], [{[LIT_OTHER "*"] [LIT_OTHER "="] [LIT_OTHER "*"]}]]
            (Com {[LIT_CHARS break]})
            (Com {[LIT_CHARS continue]})
          )
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tab', {[DQ [VarSub tab][VarSub nl][VarSub ht][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS 0][VarSub R][VarSub a][VarSub x][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS ","][VarSub ht][LIT_CHARS "(Math_f)"][VarSub f][LIT_CHARS ","]]})])
        )
      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tab', {[DQ [VarSub tab][VarSub nl][VarSub ht][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS ","][VarSub ht][VarSub ht][LIT_CHARS "(Math_f)0"]]})])
  (Com {[LIT_CHARS cat]}
    <
    (HereDocRedirectNode here_end='!' do_expansion=True body_word={[DQ [LIT_CHARS "\n"][LIT_CHARS "/*\n"][LIT_CHARS " * first byte is two-digit octal number.  Last digit is number of args\n"][LIT_CHARS " * first digit is 0 if return value is double, 1 for integer\n"][LIT_CHARS " */\n"][LIT_CHARS "const struct mathtab shtab_math[] =\n"][LIT_CHARS "{"][VarSub tab][LIT_CHARS "\n"][LIT_CHARS "};\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
)