(List
  (Com {[LIT_CHARS source]} {[LIT_CHARS ./virtualbox_env.sh]})
  (For i [{[ComSub (Com {[LIT_CHARS seq]} {[LIT_CHARS 1]} {[LIT_CHARS 3]})]}])
    (Com {[VarSub VBM]} {[LIT_CHARS snapshot]} {[LIT_CHARS bcpc-vm] [VarSub i]} {[LIT_CHARS take]} {[LIT_CHARS initial-install]})
  )
)