(command.CommandList
  children: [
    (C {(Lit_Other ':')} {(included)} {(from)} {(6002)} {(and)} {(others)})
    (C {(mkdir)} {(-p)} {(.git/refs/tags)})
    (command.SimpleCommand
      redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(sed.script)})]
    )
    (command.FuncDef
      name: tag
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_tag)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (command.AndOr
              ops: [Op_DPipe]
              children: [
                (C {(test)} {(-f)} {(DQ (.git/refs/tags/) ($ VSub_DollarName '$_tag'))})
                (C {(error)} 
                  {
                    (DQ ('tag: ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) 
                      ($ VSub_DollarName '$_tag') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' does not exist')
                    )
                  }
                )
              ]
            )
            (C {(cat)} {(DQ (.git/refs/tags/) ($ VSub_DollarName '$_tag'))})
          ]
        )
    )
    (command.FuncDef
      name: unique_commit
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_text)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_tree)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                )
              ]
            )
            (C {(shift)} {(2)})
            (command.Pipeline
              children: [
                (C {(echo)} {(DQ ($ VSub_DollarName '$_text'))})
                (C {(git)} {(commit-tree)} 
                  {
                    (word_part.CommandSubPart
                      command_list: 
                        (command.CommandList
                          children: [(C {(tag)} {(DQ ($ VSub_DollarName '$_tree'))})]
                        )
                      left_token: <Left_CommandSub '$('>
                    )
                  } {(DQ ($ VSub_At '$@'))}
                )
              ]
              negated: F
            )
          ]
        )
    )
    (command.FuncDef
      name: save_tag
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_tag)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (command.AndOr
              ops: [Op_DPipe]
              children: [
                (C {(test)} {(-n)} {(DQ ($ VSub_DollarName '$_tag'))})
                (C {(error)} {(DQ ('usage: save_tag tag commit-args ...'))})
              ]
            )
            (C {(shift)} {(1)})
            (command.SimpleCommand
              words: [{(DQ ($ VSub_At '$@'))}]
              redirects: [
                (redir.Redir
                  op: <Redir_Great '>'>
                  fd: 16777215
                  arg_word: {(DQ (.git/refs/tags/) ($ VSub_DollarName '$_tag'))}
                )
              ]
            )
            (command.SimpleCommand
              words: [
                {(echo)}
                {
                  (DQ (s/) 
                    (word_part.CommandSubPart
                      command_list: 
                        (command.CommandList
                          children: [(C {(tag)} {($ VSub_DollarName '$_tag')})]
                        )
                      left_token: <Left_CommandSub '$('>
                    ) (/) ($ VSub_DollarName '$_tag') (/g)
                  )
                }
              ]
              redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(sed.script.tmp)})]
            )
            (command.SimpleCommand
              words: [{(cat)} {(sed.script)}]
              redirects: [(redir.Redir op:<Redir_DGreat '>>'> fd:16777215 arg_word:{(sed.script.tmp)})]
            )
            (C {(rm)} {(sed.script)})
            (C {(mv)} {(sed.script.tmp)} {(sed.script)})
          ]
        )
    )
    (command.FuncDef
      name: entag
      body: (command.BraceGroup children:[(C {(sed)} {(-f)} {(sed.script)})])
    )
    (command.FuncDef
      name: as_author
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_author)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (C {(shift)} {(1)})
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_save)
                  op: Equal
                  rhs: {($ VSub_DollarName '$GIT_AUTHOR_EMAIL')}
                )
              ]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:GIT_AUTHOR_EMAIL)
                  op: Equal
                  rhs: {(DQ ($ VSub_DollarName '$_author'))}
                )
              ]
            )
            (C {(export)} {(GIT_AUTHOR_EMAIL)})
            (C {(DQ ($ VSub_At '$@'))})
            (command.If
              arms: [
                (if_arm
                  cond: [(C {(test)} {(-z)} {(DQ ($ VSub_DollarName '$_save'))})]
                  action: [(C {(unset)} {(GIT_AUTHOR_EMAIL)})]
                )
              ]
              else_action: [
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:GIT_AUTHOR_EMAIL)
                      op: Equal
                      rhs: {(DQ ($ VSub_DollarName '$_save'))}
                    )
                  ]
                )
                (C {(export)} {(GIT_AUTHOR_EMAIL)})
              ]
            )
          ]
        )
    )
    (command.FuncDef
      name: commit_date
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_commit)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (command.Pipeline
              children: [
                (C {(git)} {(cat-file)} {(commit)} {($ VSub_DollarName '$_commit')})
                (C {(sed)} {(-n)} 
                  {
                    (DQ ('s/^committer .*> ') (Lit_Other '\\') ('([0-9]*') (Lit_Other '\\') (') .*/') 
                      (Lit_Other '\\') (1/p)
                    )
                  }
                )
              ]
              negated: F
            )
          ]
        )
    )
    (command.FuncDef
      name: assign_fake_date
      body: 
        (command.BraceGroup
          children: [
            (command.Case
              to_match: {(DQ ($ VSub_Number '$2'))}
              arms: [
                (case_arm
                  pat_list: [
                    {(Lit_Other '?') (Lit_Other '?') (Lit_Other ':') (Lit_Other '?') (Lit_Other '?') 
                      (Lit_Other ':') (Lit_Other '?') (Lit_Other '?')
                    }
                  ]
                  action: [
                    (C {(eval)} {(DQ ($ VSub_Number '$1') ("='1971-08-16 ") ($ VSub_Number '$2') ("'"))})
                  ]
                )
                (case_arm
                  pat_list: [
                    {(Lit_Other '?') (Lit_Other '?') (Lit_Other ':') (Lit_Other '?') (Lit_Other '?')}
                  ]
                  action: [
                    (C {(eval)} 
                      {(DQ ($ VSub_Number '$1') ("='1971-08-16 00:") ($ VSub_Number '$2') ("'"))}
                    )
                  ]
                )
                (case_arm
                  pat_list: [{(Lit_Other '?') (Lit_Other '?')}]
                  action: [
                    (C {(eval)} 
                      {(DQ ($ VSub_Number '$1') ("='1971-08-16 00:00:") ($ VSub_Number '$2') ("'"))}
                    )
                  ]
                )
                (case_arm
                  pat_list: [{(Lit_Other '*')}]
                  action: [(C {(eval)} {(DQ ($ VSub_Number '$1') ("='") ($ VSub_Number '$2') ("'"))})]
                )
              ]
            )
          ]
        )
    )
    (command.FuncDef
      name: on_committer_date
      body: 
        (command.BraceGroup
          children: [
            (C {(assign_fake_date)} {(GIT_COMMITTER_DATE)} {(DQ ($ VSub_Number '$1'))})
            (C {(export)} {(GIT_COMMITTER_DATE)})
            (C {(shift)} {(1)})
            (C {(DQ ($ VSub_At '$@'))})
          ]
        )
    )
    (command.FuncDef
      name: on_dates
      body: 
        (command.BraceGroup
          children: [
            (C {(assign_fake_date)} {(GIT_COMMITTER_DATE)} {(DQ ($ VSub_Number '$1'))})
            (C {(assign_fake_date)} {(GIT_AUTHOR_DATE)} {(DQ ($ VSub_Number '$2'))})
            (C {(export)} {(GIT_COMMITTER_DATE)} {(GIT_AUTHOR_DATE)})
            (C {(shift)} {(2)})
            (C {(DQ ($ VSub_At '$@'))})
          ]
        )
    )
    (command.FuncDef
      name: hide_error
      body: 
        (command.BraceGroup
          children: [
            (command.SimpleCommand
              words: [{(DQ ($ VSub_At '$@'))}]
              redirects: [(redir.Redir op:<Redir_Great '2>'> fd:2 arg_word:{(/dev/null)})]
            )
          ]
        )
    )
    (command.FuncDef
      name: check_output
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_name)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (C {(shift)} {(1)})
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Pipeline
                      children: [
                        (C {(eval)} {(DQ ($ VSub_Star '$*'))})
                        (command.SimpleCommand
                          words: [{(entag)}]
                          redirects: [
                            (redir.Redir
                              op: <Redir_Great '>'>
                              fd: 16777215
                              arg_word: {(DQ ($ VSub_DollarName '$_name') (.actual))}
                            )
                          ]
                        )
                      ]
                      negated: F
                    )
                  ]
                  action: [
                    (C {(test_cmp)} {(DQ ($ VSub_DollarName '$_name') (.expected))} 
                      {(DQ ($ VSub_DollarName '$_name') (.actual))}
                    )
                  ]
                )
              ]
              else_action: [(command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})]
            )
          ]
        )
    )
    (command.FuncDef
      name: name_from_description
      body: 
        (command.BraceGroup
          children: [
            (C {(perl)} {(-pe)} 
              {
                (SQ <'\n'> <'\t\ts/[^A-Za-z0-9.]/-/g;\n'> <'\t\ts/-+/-/g;\n'> <'\t\ts/-$//;\n'> 
                  <'\t\ts/^-//;\n'> <'\t\ty/A-Z/a-z/;\n'> <'\t'>
                )
              }
            )
          ]
        )
    )
    (command.FuncDef
      name: test_output_expect_success
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_description)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                )
              ]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_test)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                )
              ]
            )
            (command.AndOr
              ops: [Op_DPipe]
              children: [
                (C {(test)} {($ VSub_Pound '$#')} {(-eq)} {(2)})
                (C {(error)} {(DQ ('usage: test_output_expect_success description test <<EOF ... EOF'))})
              ]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:_name)
                  op: Equal
                  rhs: 
                    {
                      (word_part.CommandSubPart
                        command_list: 
                          (command.CommandList
                            children: [
                              (command.Pipeline
                                children: [
                                  (C {(echo)} {($ VSub_DollarName '$_description')})
                                  (C {(name_from_description)})
                                ]
                                negated: F
                              )
                            ]
                          )
                        left_token: <Left_CommandSub '$('>
                      )
                    }
                )
              ]
            )
            (command.SimpleCommand
              words: [{(cat)}]
              redirects: [
                (redir.Redir
                  op: <Redir_Great '>'>
                  fd: 16777215
                  arg_word: {(DQ ($ VSub_DollarName '$_name') (.expected))}
                )
              ]
            )
            (C {(test_expect_success)} {(DQ ($ VSub_DollarName '$_description'))} 
              {
                (DQ ('check_output ') ($ VSub_DollarName '$_name') (' ') 
                  (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ($ VSub_DollarName '$_test') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>)
                )
              }
            )
          ]
        )
    )
  ]
)