(command.CommandList
  children: [
    (C {<source>} {<./virtualbox_env.sh>})
    (command.ForEach
      iter_name: i
      iter_words: [
        {
          (command_sub
            left_token: <Id.Left_Backtick '`'>
            command_list: (command.CommandList children:[(C {<seq>} {<1>} {<3>})])
          )
        }
      ]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (C {($ Id.VSub_DollarName '$VBM')} {<snapshot>} {<bcpc-vm> ($ Id.VSub_DollarName '$i')} 
              {<take>} {<initial-install>}
            )
          ]
        )
    )
  ]
)