(List
  (Com {[LIT_CHARS source]} {[LIT_CHARS ./vmware_env.sh]})
  (If
    (DBracket {B1 UNARY_STRING_z {[DQ [VarSub VMRUN]]}})
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "vmrun not found!"]]}
        <
        (DescriptorRedirectNode target={[LIT_CHARS 2]} <REDIR_GREATAND ">&"> 1),
        >
      )
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "  Please ensure VMWare is installed and vmrun is accessible."]]}
        <
        (DescriptorRedirectNode target={[LIT_CHARS 2]} <REDIR_GREATAND ">&"> 1),
        >
      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]})
    )
  )
  (For i [{[ComSub (Com {[LIT_CHARS seq]} {[LIT_CHARS 1]} {[LIT_CHARS 3]})]}])
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('VM_PATH', {[ComSub (Com {[LIT_CHARS ls]} {[LIT_CHARS -d]} {[LIT_CHARS .vagrant/machines/bcpc_vm] [VarSub i] [LIT_CHARS /vmware_fusion/] [LIT_OTHER "*"] [LIT_CHARS /]})]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('VMX_PATH', {[VarSub VM_PATH] [LIT_CHARS /precise64.vmx]})])
      (If
        (Com {[LIT_OTHER "["]} {[LIT_OTHER "!"]} {[LIT_CHARS -f]} {[VarSub VMX_PATH]} {[LIT_OTHER "]"]})
        (List
          (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Unable to find VM "][VarSub i][LIT_CHARS " - "][VarSub VMX_PATH][LIT_CHARS "! Exiting."]]})
          (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]})
        )
      )
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "Saving bcpc-vm"][VarSub i][LIT_CHARS " to snapshot"]]})
      (Com {[DQ [VarSub VMRUN]]} {[LIT_CHARS snapshot]} {[VarSub VMX_PATH]} {[LIT_CHARS initial-install]})
    )
  )
)