(List
  (Com {[LIT_CHARS set]} {[LIT_CHARS -e]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('BOOT', {[LIT_CHARS /boot/boot]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ROOT', {[ComSub (Com {[LIT_CHARS printroot]} {[LIT_CHARS -r]})]})])
  (If
    (Com {[LIT_DBRACKET_LIKE "["]} {[LIT_OTHER "!"]} {[LIT_CHARS -b]} {[DQ [VarSub ROOT]]} {[LIT_DBRACKET_LIKE "]"]}    )
    (List
      (Com {[LIT_CHARS echo]} {[LIT_CHARS root]} {[LIT_CHARS device]} {[VarSub ROOT]} {[LIT_CHARS not]} {[LIT_CHARS found]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (Com {[LIT_CHARS echo]} {[LIT_CHARS -n]} {[DQ [LIT_CHARS "Install boot as "][VarSub BOOT][LIT_CHARS " on current root and patch into "][VarSub ROOT][LIT_CHARS "? (y/N) "]]}  )
  (Com {[LIT_CHARS read]} {[LIT_CHARS ans]}  )
  (If
    (Com {[LIT_DBRACKET_LIKE "["]} {[LIT_OTHER "!"]} {[DQ [VarSub ans]]} {[LIT_DBRACKET_LIKE "="]} {[LIT_CHARS y]} {[LIT_DBRACKET_LIKE "]"]}    )
    (List
      (Com {[LIT_CHARS echo]} {[LIT_CHARS Aborting.]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (AndOr OP_OR_IF
    (Com {[LIT_CHARS make]} {[LIT_CHARS install]}    )
    (Com {[LIT_CHARS true]}    )
  )
  (Com {[LIT_CHARS echo]} {[LIT_CHARS Installing]} {[LIT_CHARS boot]} {[LIT_CHARS monitor]} {[LIT_CHARS into]} {[VarSub BOOT] [LIT_CHARS .]}  )
  (Com {[LIT_CHARS cp]} {[LIT_CHARS boot]} {[VarSub BOOT]}  )
  (Com {[LIT_CHARS echo]} {[LIT_CHARS Patching]} {[LIT_CHARS position]} {[LIT_CHARS of]} {[VarSub BOOT]} {[LIT_CHARS into]} {[VarSub ROOT] [LIT_CHARS .]}  )
  (Com {[LIT_CHARS installboot]} {[LIT_CHARS -d]} {[DQ [VarSub ROOT]]} {[LIT_CHARS /usr/mdec/bootblock]} {[VarSub BOOT]}  )
  (Com {[LIT_CHARS sync]}  )
)