(command.CommandList
  children: [
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.DBracket
                      expr: 
                        (bool_expr.LogicalNot
                          child: 
                            (bool_expr.Unary
                              op_id: Id.BoolUnary_z
                              child: {(DQ ($ Id.VSub_Number '$1'))}
                            )
                        )
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:CLUSTERNAME)
                  op: assign_op.Equal
                  rhs: {(DQ ($ Id.VSub_Number '$1'))}
                  spids: [69]
                )
              ]
            )
          ]
          spids: [51 66]
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.DBracket
                      expr: 
                        (bool_expr.LogicalNot
                          child: (bool_expr.Unary op_id:Id.BoolUnary_f child:{(DQ <cluster.txt>)})
                        )
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (C {(DQ <'Error: cluster.txt not found'>)})
            (command.ControlFlow token:<Id.ControlFlow_Exit exit>)
          ]
          spids: [76 91]
        )
      ]
    )
    (C {<echo>} {<-e>} {(DQ <'<html>'>)})
    (C {<echo>} {<-e>} 
      {
        (DQ <'<head>'> <Id.Lit_BadBackslash '\\'> <'n<title>Cluster '> 
          ($ Id.VSub_DollarName '$CLUSTERNAME') <' members</title></head>'>
        )
      }
    )
    (C {<echo>} {<-e>} {(DQ <'<body>'>)})
    (C {<echo>} {<-e>} 
      {
        (DQ <'<font color=slategray>'> <Id.Lit_BadBackslash '\\'> <'n<h2>Cluster '> 
          ($ Id.VSub_DollarName '$CLUSTERNAME') <' members</h2>'> <Id.Lit_BadBackslash '\\'> <'n</font>'>
        )
      }
    )
    (C {<echo>} {<-e>} 
      {
        (DQ <'<table border='> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <1> 
          (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <'>'>
        )
      }
    )
    (command.WhileUntil
      keyword: <Id.KW_While while>
      cond: 
        (condition.Shell
          commands: [
            (command.Sentence
              child: (C {<read>} {<HOSTNAME>} {<MACADDR>} {<IPADDR>} {<ILOIPADDR>} {<DOMAIN>} {<ROLE>})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
      body: 
        (command.DoGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.BoolBinary_GlobEqual
                                  left: {(DQ ($ Id.VSub_DollarName '$ROLE'))}
                                  right: {(DQ <head>)}
                                )
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:COLOR)
                          op: assign_op.Equal
                          rhs: {<red>}
                          spids: [197]
                        )
                      ]
                    )
                  ]
                  spids: [177 194]
                )
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.BoolBinary_GlobEqual
                                  left: {(DQ ($ Id.VSub_DollarName '$ROLE'))}
                                  right: {(DQ <bootstrap>)}
                                )
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:COLOR)
                          op: assign_op.Equal
                          rhs: {<purple>}
                          spids: [221]
                        )
                      ]
                    )
                  ]
                  spids: [201 218]
                )
              ]
              else_action: [
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:COLOR)
                      op: assign_op.Equal
                      rhs: {<black>}
                      spids: [228]
                    )
                  ]
                )
              ]
            )
            (C {<echo>} {<-e>} {(DQ <'<tr>'>)})
            (C {<echo>} {<-e>} {(DQ <'<td>'> ($ Id.VSub_DollarName '$HOSTNAME') <'</td>'>)})
            (C {<echo>} {<-e>} 
              {
                (DQ <'<td><a href='> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) 
                  <'https://'> ($ Id.VSub_DollarName '$IPADDR') (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) 
                  <'>host</a></td>'>
                )
              }
            )
            (C {<echo>} {<-e>} 
              {
                (DQ <'<td><a href='> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) 
                  <'https://'> ($ Id.VSub_DollarName '$ILOIPADDR') (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) 
                  <'>ilo</a></td>'>
                )
              }
            )
            (C {<echo>} {<-e>} {(DQ <'<td>'>)})
            (C {<echo>} {<-e>} {(DQ <'<font color='> ($ Id.VSub_DollarName '$COLOR') <'>'>)})
            (C {<echo>} {<-e>} {(DQ ($ Id.VSub_DollarName '$ROLE'))})
            (C {<echo>} {<-e>} {(DQ <'</font>'>)})
            (C {<echo>} {<-e>} {(DQ <'</td>'>)})
            (C {<echo>} {<-e>} {(DQ <'</tr>'>)})
          ]
        )
      redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<cluster.txt>})]
    )
    (C {<echo>} {<-e>} {(DQ <'</table>'>)})
    (C {<echo>} {<-e>} {(DQ <'</body>'>)})
    (C {<echo>} {<-e>} {(DQ <'</html>'>)})
  ]
)