#!/bin/bash

# bash imports
source ./virtualbox_env.sh

for i in [$[seq 1 3]] {
  $VBM snapshot bcpc-vm$i take initial-install
}
(CommandList
  children: [
    (C {(source)} {(./virtualbox_env.sh)})
    (ForEach
      iter_name: i
      iter_words: [
        {
          (CommandSubPart
            command_list: (CommandList children:[(C {(seq)} {(1)} {(3)})])
            left_token: <Left_Backtick "`">
            spids: [18 24]
          )
        }
      ]
      do_arg_iter: False
      body: 
        (DoGroup
          children: [
            (C {($ VSub_Name "$VBM")} {(snapshot)} {(bcpc-vm) ($ VSub_Name "$i")} {(take)} 
              {(initial-install)}
            )
          ]
          spids: [27 41]
        )
      spids: [17 25]
    )
  ]
)