(List
  (FunctionDef preamble []
    (Com {[LIT_CHARS cat]}
      <
      (HereDocRedirectNode here_end='PREAMBLE' do_expansion=True body_word={[DQ [LIT_CHARS "# ***************************************************************************\n"][LIT_CHARS "# *\n"][LIT_CHARS "# *   Copyright (C) 1995-2014, International Business Machines\n"][LIT_CHARS "# *   Corporation and others.  All Rights Reserved.\n"][LIT_CHARS "# *\n"][LIT_CHARS "# *   Generated per the algorithm for EUC-JP\n"][LIT_CHARS "# *   described at http://encoding.spec.whatwg.org/#euc-jp.\n"][LIT_CHARS "# *\n"][LIT_CHARS "# ***************************************************************************\n"][LIT_CHARS "<code_set_name>               "][RIGHT_D_QUOTE "\""][LIT_CHARS euc-jp-html5][RIGHT_D_QUOTE "\""][LIT_CHARS "\n"][LIT_CHARS "<char_name_mask>              "][RIGHT_D_QUOTE "\""][LIT_CHARS AXXXX][RIGHT_D_QUOTE "\""][LIT_CHARS "\n"][LIT_CHARS "<mb_cur_max>                  3\n"][LIT_CHARS "<mb_cur_min>                  1\n"][LIT_CHARS "<uconv_class>                 "][RIGHT_D_QUOTE "\""][LIT_CHARS MBCS][RIGHT_D_QUOTE "\""][LIT_CHARS "\n"][LIT_CHARS "<subchar>                     "][\ LIT_ESCAPED_CHAR "\\x"][LIT_CHARS F4][\ LIT_ESCAPED_CHAR "\\x"][LIT_CHARS "FE\n"][LIT_CHARS "<subchar1>                    "][\ LIT_ESCAPED_CHAR "\\x"][LIT_CHARS "1A\n"][LIT_CHARS "<icu:charsetFamily>           "][RIGHT_D_QUOTE "\""][LIT_CHARS ASCII][RIGHT_D_QUOTE "\""][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS "<icu:state>                   0-7f, 8e:2, 8f:3, a1-fe:1\n"][LIT_CHARS "<icu:state>                   a1-fe\n"][LIT_CHARS "<icu:state>                   a1-e2\n"][LIT_CHARS "<icu:state>                   a1-fe:1, a1:4, a3-a5:4, a8:4, ac-af:4, ee-f2:4, f4-fe:4\n"][LIT_CHARS "<icu:state>                   a1-fe.u\n"][LIT_CHARS "\n"][LIT_CHARS "CHARMAP\n"]]} <REDIR_DLESS "<<"> 0),
      >
    )
  )
  (FunctionDef ascii []
    (For i [{[ComSub (Com {[LIT_CHARS seq]} {[LIT_CHARS 0]} {[LIT_CHARS 127]})]}])
      (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "<U%04X> \\\\x%02X |0\\n">]} {[VarSub i]} {[VarSub i]})
    )
  )
  (FunctionDef half_width_kana []
    (For i [{[ComSub (Com {[LIT_CHARS seq]} {[LIT_CHARS 0xA1]} {[LIT_CHARS 0xDF]})]}])
      (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "<U%04X> \\\\x8E\\\\x%02X |0\\n">]} {[ArithSub {A2 AS_OP_MINUS {A2 AS_OP_PLUS {A Atom NODE_ARITH_WORD {[VarSub i]}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 65377]}}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 161]}}}]} {[VarSub i]})
    )
  )
  (FunctionDef jis208 []
    (Com {[LIT_CHARS awk]} {[SQ <LIT_CHARS "!/^#/ && !/^$/ && $1 <= 8836  \\\n"> <LIT_CHARS "       { printf (\"<U%4s> \\\\x%02X\\\\x%02X |%d\\n\", substr($2, 3),\\\n"> <LIT_CHARS "                 $1 / 94 + 0xA1, $1 % 94 + 0xA1,\\\n"> <LIT_CHARS "                 ($2 in uset) ? 3 : 0); \\\n"> <LIT_CHARS "         uset[$2] = 1;\n"> <LIT_CHARS "       }">]} {[LIT_CHARS index-jis0208.txt]})
  )
  (FunctionDef jis212 []
    (Com {[LIT_CHARS awk]} {[SQ <LIT_CHARS "!/^#/ && !/^$/ \\\n"> <LIT_CHARS "       { printf (\"<U%4s> \\\\x8F\\\\x%02X\\\\x%02X |3\\n\", substr($2, 3),\\\n"> <LIT_CHARS "                 $1 / 94 + 0xA1, $1 % 94 + 0xA1);}">]} {[LIT_CHARS index-jis0212.txt]})
  )
  (FunctionDef unsorted_table []
    (List
      (Com {[LIT_CHARS ascii]})
      (Com {[LIT_CHARS half_width_kana]})
      (Com {[LIT_CHARS jis208]})
      (Com {[LIT_CHARS jis212]})
      (Com {[LIT_CHARS decode_only_extra]})
      (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "<U00A5> \\x5C |1">]})
      (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "<U203E> \\x7E |1">]})
    )
  )
  (Com {[LIT_CHARS preamble]})
  (Pipeline
    (Com {[LIT_CHARS unsorted_table]})
    (Com {[LIT_CHARS sort]})
    (Com {[LIT_CHARS uniq]})
  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "END CHARMAP">]})
)