(For i [{[LIT_CHARS bcpc-] [LIT_LBRACE "{"] [LIT_CHARS bootstrap] [LIT_COMMA ","] [LIT_CHARS vm] [LIT_LBRACE "{"] [LIT_CHARS 1..3] [LIT_RBRACE "}"] [LIT_RBRACE "}"]}])
  (List
    (Com {[LIT_CHARS VBoxManage]} {[LIT_CHARS controlvm]} {[VarSub i]} {[LIT_CHARS poweroff]})
    (Com {[LIT_CHARS VBoxManage]} {[LIT_CHARS unregistervm]} {[VarSub i]} {[LIT_CHARS --delete]})
  )
)