(command.CommandList
  children: [
    (command.ShAssignment
      left: <Id.Lit_VarLike 'gpg_version='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'gpg_version='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'gpg_version='> name:gpg_version)
          op: assign_op.Equal
          rhs: 
            {
              (CommandSub
                left_token: <Id.Left_DollarParen '$('>
                child: 
                  (command.Simple
                    blame_tok: <gpg>
                    more_env: []
                    words: [{<gpg>} {<--version>}]
                    redirects: [(Redir op:<Id.Redir_GreatAnd '2>&'> loc:(redir_loc.Fd fd:2) arg:{<1>})]
                    do_fork: T
                  )
                right: <Id.Eof_RParen _>
              )
            }
        )
      ]
      redirects: []
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Simple
                  blame_tok: <test>
                  more_env: []
                  words: [{<test>} {($ Id.VSub_QMark '?')} {<Id.KW_Bang '!'> <Id.Lit_Equals '='>} {<127>}]
                  redirects: []
                  do_fork: T
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.Case
              case_kw: <Id.KW_Case case>
              to_match: (case_arg.Word w:{(DQ ($ Id.VSub_DollarName gpg_version))})
              arms_start: <Id.KW_In in>
              arms: [
                (CaseArm
                  left: <Id.Left_SingleQuote '\''>
                  pattern: (pat.Words words:[{(SQ <'gpg (GnuPG) 1.0.6'>) <Id.Lit_Star '*'>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.Simple
                      blame_tok: <say>
                      more_env: []
                      words: [{<say>} {(DQ <'Your version of gpg (1.0.6) is too buggy for testing'>)}]
                      redirects: []
                      do_fork: T
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
                (CaseArm
                  left: <Id.Lit_Star '*'>
                  pattern: (pat.Words words:[{<Id.Lit_Star '*'>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.AndOr
                      children: [
                        (command.Simple
                          blame_tok: <mkdir>
                          more_env: []
                          words: [{<mkdir>} {<'./gpghome'>}]
                          redirects: []
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <chmod>
                          more_env: []
                          words: [{<chmod>} {<0700>} {<'./gpghome'>}]
                          redirects: []
                          do_fork: T
                        )
                        (command.ShAssignment
                          left: <Id.Lit_VarLike 'GNUPGHOME='>
                          pairs: [
                            (AssignPair
                              left: <Id.Lit_VarLike 'GNUPGHOME='>
                              lhs: 
                                (sh_lhs_expr.Name
                                  left: <Id.Lit_VarLike 'GNUPGHOME='>
                                  name: GNUPGHOME
                                )
                              op: assign_op.Equal
                              rhs: 
                                {
                                  (DQ 
                                    (CommandSub
                                      left_token: <Id.Left_DollarParen '$('>
                                      child: 
                                        (command.Simple
                                          blame_tok: <pwd>
                                          more_env: []
                                          words: [{<pwd>}]
                                          redirects: []
                                          do_fork: T
                                        )
                                      right: <Id.Eof_RParen _>
                                    ) <'/gpghome'>
                                  )
                                }
                            )
                          ]
                          redirects: []
                        )
                        (command.Simple
                          blame_tok: <export>
                          more_env: []
                          words: [{<export>} {<GNUPGHOME>}]
                          redirects: []
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <gpg>
                          more_env: []
                          words: [
                            {<gpg>}
                            {<--homedir>}
                            {(DQ (${ Id.VSub_Name GNUPGHOME))}
                            {<--import>}
                            {(DQ ($ Id.VSub_DollarName TEST_DIRECTORY)) <'/lib-gpg/keyring.gpg'>}
                          ]
                          redirects: [
                            (Redir
                              op: <Id.Redir_Great '2>'>
                              loc: (redir_loc.Fd fd:2)
                              arg: {<'/dev/null'>}
                            )
                          ]
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <gpg>
                          more_env: []
                          words: [
                            {<gpg>}
                            {<--homedir>}
                            {(DQ (${ Id.VSub_Name GNUPGHOME))}
                            {<--import-ownertrust>}
                            {(DQ ($ Id.VSub_DollarName TEST_DIRECTORY)) <'/lib-gpg/ownertrust'>}
                          ]
                          redirects: [
                            (Redir
                              op: <Id.Redir_Great '2>'>
                              loc: (redir_loc.Fd fd:2)
                              arg: {<'/dev/null'>}
                            )
                          ]
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <gpg>
                          more_env: []
                          words: [
                            {<gpg>}
                            {<--homedir>}
                            {(DQ (${ Id.VSub_Name GNUPGHOME))}
                            {<--sign>}
                            {<-u>}
                            {<committer> <Id.Lit_Splice '@example'> <.com>}
                          ]
                          redirects: [
                            (Redir
                              op: <Id.Redir_Less '<'>
                              loc: (redir_loc.Fd fd:0)
                              arg: {<'/dev/null'>}
                            )
                            (Redir
                              op: <Id.Redir_Great '>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {<'/dev/null'>}
                            )
                            (Redir
                              op: <Id.Redir_GreatAnd '2>&'>
                              loc: (redir_loc.Fd fd:2)
                              arg: {<1>}
                            )
                          ]
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <test_set_prereq>
                          more_env: []
                          words: [{<test_set_prereq>} {<GPG>}]
                          redirects: []
                          do_fork: T
                        )
                      ]
                      ops: [
                        <Id.Op_DAmp _>
                        <Id.Op_DAmp _>
                        <Id.Op_DAmp _>
                        <Id.Op_DAmp _>
                        <Id.Op_DAmp _>
                        <Id.Op_DAmp _>
                        <Id.Op_DAmp _>
                      ]
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
              ]
              arms_end: <Id.KW_Esac esac>
              redirects: []
            )
          ]
          spids: [14 25]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.AndOr
                  children: [
                    (command.Simple
                      blame_tok: <test_have_prereq>
                      more_env: []
                      words: [{<test_have_prereq>} {<GPG>}]
                      redirects: []
                      do_fork: T
                    )
                    (command.Pipeline
                      children: [
                        (command.Simple
                          blame_tok: <echo>
                          more_env: []
                          words: [{<echo>}]
                          redirects: []
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <gpg>
                          more_env: []
                          words: [
                            {<gpg>}
                            {<--homedir>}
                            {(DQ (${ Id.VSub_Name GNUPGHOME))}
                            {<-b>}
                            {<--rfc1991>}
                          ]
                          redirects: [
                            (Redir
                              op: <Id.Redir_Great '>'>
                              loc: (redir_loc.Fd fd:1)
                              arg: {<'/dev/null'>}
                            )
                            (Redir
                              op: <Id.Redir_GreatAnd '2>&'>
                              loc: (redir_loc.Fd fd:2)
                              arg: {<1>}
                            )
                          ]
                          do_fork: T
                        )
                      ]
                      ops: [<Id.Op_Pipe _>]
                    )
                  ]
                  ops: [<Id.Op_DAmp _>]
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.Simple
              blame_tok: <test_set_prereq>
              more_env: []
              words: [{<test_set_prereq>} {<RFC1991>}]
              redirects: []
              do_fork: T
            )
          ]
          spids: [263 296]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.ShFunction
      name_tok: <sanitize_pgp>
      name: sanitize_pgp
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Simple
              blame_tok: <perl>
              more_env: []
              words: [
                {<perl>}
                {<-ne>}
                {
                  (SQ <'\n'> <'\t\t/^-----END PGP/ and $in_pgp = 0;\n'> <'\t\tprint unless $in_pgp;\n'> 
                    <'\t\t/^-----BEGIN PGP/ and $in_pgp = 1;\n'> <'\t'>
                  )
                }
              ]
              redirects: []
              do_fork: T
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
  ]
)