(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:tid)
          op: assign_op.Equal
          rhs: {(DQ <'simple agent test'>)}
          spids: [7]
        )
      ]
    )
    (command.Simple
      words: [{(${ Id.VSub_Name SSHADD)} {<-l>}]
      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>})
      ]
      more_env: [(env_pair name:SSH_AUTH_SOCK val:{<'/nonexistent'>} spids:[13])]
      do_fork: T
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<Id.Lit_LBracket '['>} {($ Id.VSub_QMark '$?')} {<-ne>} {<2>} 
                      {<Id.Lit_RBracket ']'>}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [(C {<fail>} {(DQ <'ssh-add -l did not fail with exit code 2'>)})]
          spids: [29 42]
        )
      ]
    )
    (C {<trace>} {(DQ <'start agent'>)})
    (command.Simple
      words: [
        {<eval>}
        {(command_sub left_token:<Id.Left_Backtick '`'> child:(C {(${ Id.VSub_Name SSHAGENT)} {<-s>}))}
      ]
      redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<'/dev/null'>})]
      do_fork: T
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:r)
          op: assign_op.Equal
          rhs: {($ Id.VSub_QMark '$?')}
          spids: [76]
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} {<0>} 
                      {<Id.Lit_RBracket ']'>}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (C {<fail>} {(DQ <'could not start ssh-agent: exit code '> ($ Id.VSub_DollarName '$r'))})
          ]
          spids: [79 92]
        )
      ]
      else_action: [
        (command.Simple
          words: [{(${ Id.VSub_Name SSHADD)} {<-l>}]
          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
        )
        (command.If
          arms: [
            (if_arm
              cond: 
                (condition.Shell
                  commands: [
                    (command.Sentence
                      child: 
                        (C {<Id.Lit_LBracket '['>} {($ Id.VSub_QMark '$?')} {<-ne>} {<1>} 
                          {<Id.Lit_RBracket ']'>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                )
              action: [(C {<fail>} {(DQ <'ssh-add -l did not fail with exit code 1'>)})]
              spids: [119 132]
            )
          ]
        )
        (C {<trace>} {(DQ <'overwrite authorized keys'>)})
        (command.Simple
          words: [{<printf>} {(SQ )}]
          redirects: [
            (redir
              op: <Id.Redir_Great '>'>
              loc: (redir_loc.Fd fd:1)
              arg: 
                {($ Id.VSub_DollarName '$OBJ') <'/authorized_keys_'> ($ Id.VSub_DollarName '$USER')}
            )
          ]
          do_fork: T
        )
        (command.ForEach
          iter_name: t
          iter_words: [{(${ Id.VSub_Name SSH_KEYTYPES)}]
          do_arg_iter: F
          body: 
            (command.DoGroup
              children: [
                (C {<rm>} {<-f>} 
                  {($ Id.VSub_DollarName '$OBJ') <'/'> ($ Id.VSub_DollarName '$t') <-agent>}
                )
                (command.AndOr
                  ops: [Id.Op_DPipe]
                  children: [
                    (C {(${ Id.VSub_Name SSHKEYGEN)} {<-q>} {<-N>} {(SQ )} {<-t>} 
                      {($ Id.VSub_DollarName '$t')} {<-f>} {($ Id.VSub_DollarName '$OBJ') <'/'> ($ Id.VSub_DollarName '$t') <-agent>}
                    )
                    (C {<fail>} {(DQ <'ssh-keygen for '> ($ Id.VSub_DollarName '$t') <'-agent failed'>)})
                  ]
                )
                (command.Simple
                  words: [
                    {<cat>}
                    {($ Id.VSub_DollarName '$OBJ') <'/'> ($ Id.VSub_DollarName '$t') <-agent.pub>}
                  ]
                  redirects: [
                    (redir
                      op: <Id.Redir_DGreat '>>'>
                      loc: (redir_loc.Fd fd:1)
                      arg: 
                        {($ Id.VSub_DollarName '$OBJ') <'/authorized_keys_'> 
                          ($ Id.VSub_DollarName '$USER')
                        }
                    )
                  ]
                  do_fork: T
                )
                (command.Simple
                  words: [
                    {(${ Id.VSub_Name SSHADD)}
                    {($ Id.VSub_DollarName '$OBJ') <'/'> ($ Id.VSub_DollarName '$t') <-agent>}
                  ]
                  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
                )
                (command.If
                  arms: [
                    (if_arm
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (C {<Id.Lit_LBracket '['>} {($ Id.VSub_QMark '$?')} {<-ne>} {<0>} 
                                  {<Id.Lit_RBracket ']'>}
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      action: [(C {<fail>} {(DQ <'ssh-add did succeed exit code 0'>)})]
                      spids: [265 278]
                    )
                  ]
                )
              ]
            )
        )
        (command.Simple
          words: [{(${ Id.VSub_Name SSHADD)} {<-l>}]
          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
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:r)
              op: assign_op.Equal
              rhs: {($ Id.VSub_QMark '$?')}
              spids: [308]
            )
          ]
        )
        (command.If
          arms: [
            (if_arm
              cond: 
                (condition.Shell
                  commands: [
                    (command.Sentence
                      child: 
                        (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} {<0>} 
                          {<Id.Lit_RBracket ']'>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                )
              action: [(C {<fail>} {(DQ <'ssh-add -l failed: exit code '> ($ Id.VSub_DollarName '$r'))})]
              spids: [312 325]
            )
          ]
        )
        (command.Simple
          words: [{(${ Id.VSub_Name SSHADD)} {<-L>}]
          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
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:r)
              op: assign_op.Equal
              rhs: {($ Id.VSub_QMark '$?')}
              spids: [357]
            )
          ]
        )
        (command.If
          arms: [
            (if_arm
              cond: 
                (condition.Shell
                  commands: [
                    (command.Sentence
                      child: 
                        (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} {<0>} 
                          {<Id.Lit_RBracket ']'>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                )
              action: [(C {<fail>} {(DQ <'ssh-add -L failed: exit code '> ($ Id.VSub_DollarName '$r'))})]
              spids: [361 374]
            )
          ]
        )
        (C {<trace>} {(DQ <'simple connect via agent'>)})
        (command.ForEach
          iter_name: p
          iter_words: [{(${ Id.VSub_Name SSH_PROTOCOLS)}]
          do_arg_iter: F
          body: 
            (command.DoGroup
              children: [
                (C {(${ Id.VSub_Name SSH)} {<-> ($ Id.VSub_DollarName '$p')} {<-F>} 
                  {($ Id.VSub_DollarName '$OBJ') <'/ssh_proxy'>} {<somehost>} {<Id.ControlFlow_Exit exit>} {<5> ($ Id.VSub_DollarName '$p')}
                )
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {($ Id.VSub_QMark '$?')}
                      spids: [430]
                    )
                  ]
                )
                (command.If
                  arms: [
                    (if_arm
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} 
                                  {<5> ($ Id.VSub_DollarName '$p')} {<Id.Lit_RBracket ']'>}
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      action: [
                        (C {<fail>} 
                          {
                            (DQ <'ssh connect with protocol '> ($ Id.VSub_DollarName '$p') 
                              <' failed (exit code '> ($ Id.VSub_DollarName '$r') <')'>
                            )
                          }
                        )
                      ]
                      spids: [434 448]
                    )
                  ]
                )
              ]
            )
        )
        (C {<trace>} {(DQ <'agent forwarding'>)})
        (command.ForEach
          iter_name: p
          iter_words: [{(${ Id.VSub_Name SSH_PROTOCOLS)}]
          do_arg_iter: F
          body: 
            (command.DoGroup
              children: [
                (command.Simple
                  words: [
                    {(${ Id.VSub_Name SSH)}
                    {<-A>}
                    {<-> ($ Id.VSub_DollarName '$p')}
                    {<-F>}
                    {($ Id.VSub_DollarName '$OBJ') <'/ssh_proxy'>}
                    {<somehost>}
                    {(${ Id.VSub_Name SSHADD)}
                    {<-l>}
                  ]
                  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
                )
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {($ Id.VSub_QMark '$?')}
                      spids: [520]
                    )
                  ]
                )
                (command.If
                  arms: [
                    (if_arm
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} {<0>} 
                                  {<Id.Lit_RBracket ']'>}
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      action: [
                        (C {<fail>} 
                          {
                            (DQ <'ssh-add -l via agent fwd proto '> ($ Id.VSub_DollarName '$p') 
                              <' failed (exit code '> ($ Id.VSub_DollarName '$r') <')'>
                            )
                          }
                        )
                      ]
                      spids: [524 537]
                    )
                  ]
                )
                (C {(${ Id.VSub_Name SSH)} {<-A>} {<-> ($ Id.VSub_DollarName '$p')} {<-F>} 
                  {($ Id.VSub_DollarName '$OBJ') <'/ssh_proxy'>} {<somehost>} 
                  {
                    (DQ (${ Id.VSub_Name SSH) <' -'> ($ Id.VSub_DollarName '$p') <' -F '> 
                      ($ Id.VSub_DollarName '$OBJ') <'/ssh_proxy somehost exit 5'> ($ Id.VSub_DollarName '$p')
                    )
                  }
                )
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {($ Id.VSub_QMark '$?')}
                      spids: [585]
                    )
                  ]
                )
                (command.If
                  arms: [
                    (if_arm
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} 
                                  {<5> ($ Id.VSub_DollarName '$p')} {<Id.Lit_RBracket ']'>}
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      action: [
                        (C {<fail>} 
                          {
                            (DQ <'agent fwd proto '> ($ Id.VSub_DollarName '$p') 
                              <' failed (exit code '> ($ Id.VSub_DollarName '$r') <')'>
                            )
                          }
                        )
                      ]
                      spids: [589 603]
                    )
                  ]
                )
              ]
            )
        )
        (C {<trace>} {(DQ <'delete all agent keys'>)})
        (command.Simple
          words: [{(${ Id.VSub_Name SSHADD)} {<-D>}]
          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
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:r)
              op: assign_op.Equal
              rhs: {($ Id.VSub_QMark '$?')}
              spids: [645]
            )
          ]
        )
        (command.If
          arms: [
            (if_arm
              cond: 
                (condition.Shell
                  commands: [
                    (command.Sentence
                      child: 
                        (C {<Id.Lit_LBracket '['>} {($ Id.VSub_DollarName '$r')} {<-ne>} {<0>} 
                          {<Id.Lit_RBracket ']'>}
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                )
              action: [(C {<fail>} {(DQ <'ssh-add -D failed: exit code '> ($ Id.VSub_DollarName '$r'))})]
              spids: [649 662]
            )
          ]
        )
        (C {<trace>} {(DQ <'kill agent'>)})
        (command.Simple
          words: [{(${ Id.VSub_Name SSHAGENT)} {<-k>}]
          redirects: [(redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<'/dev/null'>})]
          do_fork: T
        )
      ]
    )
  ]
)