(CommandList
  children: [
    (C {(set)} {(-e)})
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:BOOT) op:Equal rhs:{(/boot/boot)} spids:[8])]
      spids: [8]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:ROOT)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: (CommandList children:[(C {(printroot)} {(-r)})])
                left_token: <Left_Backtick '`'>
                spids: [12 16]
              )
            }
          spids: [11]
        )
      ]
      spids: [11]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (C {(Lit_Other '[')} {(KW_Bang '!')} {(-b)} {(DQ ($ VSub_Name '$ROOT'))} {(Lit_Other ']')})
          ]
          action: [
            (C {(echo)} {(root)} {(device)} {($ VSub_Name '$ROOT')} {(not)} {(found)})
            (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)})
          ]
          spids: [16777215 33]
        )
      ]
      spids: [16777215 52]
    )
    (C {(echo)} {(-n)} 
      {
        (DQ ('Install boot as ') ($ VSub_Name '$BOOT') (' on current root and patch into ') 
          ($ VSub_Name '$ROOT') ('? (y/N) ')
        )
      }
    )
    (C {(read)} {(ans)})
    (If
      arms: [
        (if_arm
          cond: [
            (C {(Lit_Other '[')} {(KW_Bang '!')} {(DQ ($ VSub_Name '$ans'))} {(Lit_Other '=')} {(y)} 
              {(Lit_Other ']')}
            )
          ]
          action: [(C {(echo)} {(Aborting.)}) (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)})]
          spids: [16777215 88]
        )
      ]
      spids: [16777215 99]
    )
    (AndOr ops:[Op_DPipe] children:[(C {(make)} {(install)}) (C {(true)})])
    (C {(echo)} {(Installing)} {(boot)} {(monitor)} {(into)} {($ VSub_Name '$BOOT') (.)})
    (C {(cp)} {(boot)} {($ VSub_Name '$BOOT')})
    (C {(echo)} {(Patching)} {(position)} {(of)} {($ VSub_Name '$BOOT')} {(into)} 
      {($ VSub_Name '$ROOT') (.)}
    )
    (C {(installboot)} {(-d)} {(DQ ($ VSub_Name '$ROOT'))} {(/usr/mdec/bootblock)} {($ VSub_Name '$BOOT')})
    (C {(sync)})
  ]
)