(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]
    )
  ]
)