(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:TMP)
          op: assign_op.Equal
          rhs: {<'/tmp/'> ($ Id.VSub_Dollar '$$') <.>}
          spids: [7]
        )
      ]
    )
    (C {<set>} {<-e>})
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:MD)
          op: assign_op.Equal
          rhs: 
            {
              (command_sub
                left_token: <Id.Left_Backtick '`'>
                child: (C {<mdconfig>} {<-a>} {<-t>} {<malloc>} {<-s>} {<2m>})
              )
            }
          spids: [16]
        )
      ]
    )
    (C {<trap>} 
      {
        (DQ <'exec 7</dev/null; rm -f '> (${ Id.VSub_Name TMP) <'* ; mdconfig -d -u '> 
          (${ Id.VSub_Name MD)
        )
      } {<EXIT>} {<INT>} {<TERM>}
    )
    (C {<'./sunlabel'>} {<-r>} {<-w>} {($ Id.VSub_DollarName '$MD')} {<auto>})
    (command.Simple
      words: [
        {<dd>}
        {<Id.Lit_VarLike 'if='> <'/dev/'> ($ Id.VSub_DollarName '$MD')}
        {<Id.Lit_VarLike 'of='> (${ Id.VSub_Name TMP) <i0>}
        {<Id.Lit_VarLike 'count='> <16>}
      ]
      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.Simple
      words: [{<'./sunlabel'>} {($ Id.VSub_DollarName '$MD')}]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {(${ Id.VSub_Name TMP) <l0>}
        )
      ]
      do_fork: T
    )
    (command.Simple
      words: [
        {<sed>}
        {(SQ <'\n'> <'/  c:/{\n'> <'p\n'> <'s/c:/a:/\n'> <'s/3969/1024/\n'> <'}\n'>)}
        {(${ Id.VSub_Name TMP) <l0>}
      ]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {(${ Id.VSub_Name TMP) <l1>}
        )
      ]
      do_fork: T
    )
    (C {<'./sunlabel'>} {<-R>} {($ Id.VSub_DollarName '$MD')} {(${ Id.VSub_Name TMP) <l1>})
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<Id.Lit_LBracket '['>} {<-c>} {<'/dev/'> (${ Id.VSub_Name MD) <a>} 
                      {<Id.Lit_RBracket ']'>}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Created a: partition'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [133 149]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Did not create a: partition'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.Simple
      words: [{<true>}]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {<'/dev/'> (${ Id.VSub_Name MD)}
        )
      ]
      do_fork: T
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<Id.Lit_LBracket '['>} {<-c>} {<'/dev/'> (${ Id.VSub_Name MD) <a>} 
                      {<Id.Lit_RBracket ']'>}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Recreated a: partition after spoilage'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [194 210]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Did not recreate a: partition after spoilage'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.Simple
      words: [
        {<dd>}
        {<Id.Lit_VarLike 'if='> <'/dev/'> ($ Id.VSub_DollarName '$MD')}
        {<Id.Lit_VarLike 'of='> (${ Id.VSub_Name TMP) <i1>}
        {<Id.Lit_VarLike 'count='> <16>}
      ]
      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.Simple
      words: [
        {<sed>}
        {(SQ <'\n'> <'/  c:/{\n'> <'p\n'> <'s/c:/a:/\n'> <'s/3969/2048/\n'> <'}\n'>)}
        {(${ Id.VSub_Name TMP) <l0>}
      ]
      redirects: [
        (redir
          op: <Id.Redir_Great '>'>
          loc: (redir_loc.Fd fd:1)
          arg: {(${ Id.VSub_Name TMP) <l2>}
        )
      ]
      do_fork: T
    )
    (C {<'./sunlabel'>} {<-R>} {($ Id.VSub_DollarName '$MD')} {(${ Id.VSub_Name TMP) <l2>})
    (command.Simple
      words: [
        {<dd>}
        {<Id.Lit_VarLike 'if='> <'/dev/'> ($ Id.VSub_DollarName '$MD')}
        {<Id.Lit_VarLike 'of='> (${ Id.VSub_Name TMP) <i2>}
        {<Id.Lit_VarLike 'count='> <16>}
      ]
      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.Simple
      words: [{<exec>}]
      redirects: [
        (redir
          op: <Id.Redir_Less '7<'>
          loc: (redir_loc.Fd fd:7)
          arg: {<'/dev/'> (${ Id.VSub_Name MD) <a>}
        )
      ]
      do_fork: T
    )
    (command.ForEach
      iter_name: t
      iter_words: [{<a>} {<c>}]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.Simple
                              words: [
                                {<dd>}
                                {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i2>}
                                {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) 
                                  ($ Id.VSub_DollarName '$t')
                                }
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_Great '2>'>
                                  loc: (redir_loc.Fd fd:2)
                                  arg: {<'/dev/null'>}
                                )
                              ]
                              do_fork: T
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Simple
                      words: [
                        {<echo>}
                        {
                          (DQ <'PASS: Could rewrite same label to ...'> ($ Id.VSub_DollarName '$t') 
                            <' while ...a open'>
                          )
                        }
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_GreatAnd '1>&'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<2>}
                        )
                      ]
                      do_fork: T
                    )
                  ]
                  spids: [346 368]
                )
              ]
              else_action: [
                (command.Simple
                  words: [
                    {<echo>}
                    {
                      (DQ <'FAIL: Could not rewrite same label to ...'> ($ Id.VSub_DollarName '$t') 
                        <' while ...a open'>
                      )
                    }
                  ]
                  redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                  do_fork: T
                )
                (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
              ]
            )
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.Simple
                              words: [
                                {<dd>}
                                {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i1>}
                                {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) 
                                  ($ Id.VSub_DollarName '$t')
                                }
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_Great '2>'>
                                  loc: (redir_loc.Fd fd:2)
                                  arg: {<'/dev/null'>}
                                )
                              ]
                              do_fork: T
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Simple
                      words: [
                        {<echo>}
                        {
                          (DQ <'FAIL: Could label with smaller ...a to ...'> 
                            ($ Id.VSub_DollarName '$t') <' while ...a open'>
                          )
                        }
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_GreatAnd '1>&'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<2>}
                        )
                      ]
                      do_fork: T
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<2>}
                    )
                  ]
                  spids: [407 429]
                )
              ]
              else_action: [
                (command.Simple
                  words: [
                    {<echo>}
                    {
                      (DQ <'PASS: Could not label with smaller ...a to ...'> 
                        ($ Id.VSub_DollarName '$t') <' while ...a open'>
                      )
                    }
                  ]
                  redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                  do_fork: T
                )
              ]
            )
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.Simple
                              words: [
                                {<dd>}
                                {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i0>}
                                {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) 
                                  ($ Id.VSub_DollarName '$t')
                                }
                              ]
                              redirects: [
                                (redir
                                  op: <Id.Redir_Great '2>'>
                                  loc: (redir_loc.Fd fd:2)
                                  arg: {<'/dev/null'>}
                                )
                              ]
                              do_fork: T
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Simple
                      words: [
                        {<echo>}
                        {
                          (DQ <'FAIL: Could write label missing ...a to ...'> 
                            ($ Id.VSub_DollarName '$t') <' while ...a open'>
                          )
                        }
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_GreatAnd '1>&'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<2>}
                        )
                      ]
                      do_fork: T
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<2>}
                    )
                  ]
                  spids: [468 490]
                )
              ]
              else_action: [
                (command.Simple
                  words: [
                    {<echo>}
                    {
                      (DQ <'PASS: Could not write label missing ...a to ...'> 
                        ($ Id.VSub_DollarName '$t') <' while ...a open'>
                      )
                    }
                  ]
                  redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                  do_fork: T
                )
              ]
            )
          ]
        )
    )
    (command.Simple
      words: [{<exec>}]
      redirects: [(redir op:<Id.Redir_Less '7<'> loc:(redir_loc.Fd fd:7) arg:{<'/dev/null'>})]
      do_fork: T
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i0>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <c>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Could write missing ...a label to ...c'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [537 559]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Could not write missing ...a label to ...c'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i2>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <c>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Could write large ...a label to ...c'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [591 613]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Could not write large ...a label to ...c'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i1>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <c>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Could write small ...a label to ...c'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [645 667]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Could not write small ...a label to ...c'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i2>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <a>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Could increase size of ...a by writing to ...a'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [699 721]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Could not increase size of ...a by writing to ...a'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i1>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <a>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'FAIL: Could decrease size of ...a by writing to ...a'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
          ]
          spids: [753 775]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'PASS: Could not decrease size of ...a by writing to ...a'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i0>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <a>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'FAIL: Could delete ...a by writing to ...a'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
          ]
          spids: [807 829]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'PASS: Could not delete ...a by writing to ...a'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
      ]
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<'./sunlabel'>} {<-B>} {<-b>} {(${ Id.VSub_Name TMP) <i0>} {(${ Id.VSub_Name MD)})
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (C {<Id.Lit_LBracket '['>} {<Id.KW_Bang '!'>} {<-c>} 
                              {<'/dev/'> (${ Id.VSub_Name MD) <a>} {<Id.Lit_RBracket ']'>}
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Simple
                      words: [{<echo>} {(DQ <'FAILED: Writing bootcode killed ...a'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_GreatAnd '1>&'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<2>}
                        )
                      ]
                      do_fork: T
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<2>}
                    )
                  ]
                  spids: [883 901]
                )
              ]
              else_action: [
                (command.Simple
                  words: [{<echo>} {(DQ <'PASS: Could write bootcode while closed'>)}]
                  redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                  do_fork: T
                )
              ]
            )
          ]
          spids: [861 880]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAILED: Could not write bootcode while closed'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.Simple
      words: [{<exec>}]
      redirects: [
        (redir
          op: <Id.Redir_Great '7>'>
          loc: (redir_loc.Fd fd:7)
          arg: {<'/dev/'> (${ Id.VSub_Name MD) <c>}
        )
      ]
      do_fork: T
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (C {<ktrace>} {<'./sunlabel'>} {<-B>} {<-b>} {(${ Id.VSub_Name TMP) <i0>} 
                      {(${ Id.VSub_Name MD)}
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (C {<Id.Lit_LBracket '['>} {<Id.KW_Bang '!'>} {<-c>} 
                              {<'/dev/'> (${ Id.VSub_Name MD) <a>} {<Id.Lit_RBracket ']'>}
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Simple
                      words: [{<echo>} {(DQ <'FAILED: Writing bootcode killed ...a'>)}]
                      redirects: [
                        (redir
                          op: <Id.Redir_GreatAnd '1>&'>
                          loc: (redir_loc.Fd fd:1)
                          arg: {<2>}
                        )
                      ]
                      do_fork: T
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Exit exit>
                      arg_word: {<2>}
                    )
                  ]
                  spids: [988 1006]
                )
              ]
              else_action: [
                (command.Simple
                  words: [{<echo>} {(DQ <'PASS: Could write bootcode while open'>)}]
                  redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
                  do_fork: T
                )
              ]
            )
          ]
          spids: [964 985]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAILED: Could not write bootcode while open'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.Simple
      words: [{<exec>}]
      redirects: [(redir op:<Id.Redir_Great '7>'> loc:(redir_loc.Fd fd:7) arg:{<'/dev/null'>})]
      do_fork: T
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      words: [
                        {<dd>}
                        {<Id.Lit_VarLike 'if='> (${ Id.VSub_Name TMP) <i0>}
                        {<Id.Lit_VarLike 'of='> <'/dev/'> (${ Id.VSub_Name MD) <c>}
                      ]
                      redirects: [
                        (redir
                          op: <Id.Redir_Great '2>'>
                          loc: (redir_loc.Fd fd:2)
                          arg: {<'/dev/null'>}
                        )
                      ]
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (command.Simple
              words: [{<echo>} {(DQ <'PASS: Could delete ...a by writing to ...c'>)}]
              redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
          ]
          spids: [1065 1087]
        )
      ]
      else_action: [
        (command.Simple
          words: [{<echo>} {(DQ <'FAIL: Could not delete ...a by writing to ...c'>)}]
          redirects: [(redir op:<Id.Redir_GreatAnd '1>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
          do_fork: T
        )
        (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<2>})
      ]
    )
    (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<0>})
  ]
)