anchor.diff:  
       let startVM name =
           logger.Info("Starting VM")
  -        let status = CLI.runCmd @@ sprintf "VBoxManage startvm %s --type gui" name
  +        let status = CLI.runCmd @@ sprintf "sudo VBoxManage startvm %s --type gui" name
   
           match status with
           | CLI.Failure (msg, _) -> logger.Fatal(sprintf "Error starting VM: %s" msg)
           | _ -> ()
   
       let rec waitForClose name =
  -        let vmDetails = CLI.runCmd @@ sprintf "VBoxManage showvminfo %s --machinereadable" name
  +        let vmDetails = CLI.runCmd @@ sprintf "sudo VBoxManage showvminfo %s --machinereadable" name
           match vmDetails with
           | CLI.Failure _ -> ()
           | CLI.Success vmDetails ->
  
positive.code:         logger.Info(sprintf "Created VM %s" name)
  
      let deleteVM name =
          let couldDelete = CLI.runCmd @@ sprintf "VBoxManage unregistervm '%s' --delete" name
          match couldDelete with
          | CLI.Success _ -> ()
          | CLI.Failure (msg,_) -> logger.Error(sprintf "Could not delete VM: %s" msg)
  
negative.code:                 let portIndex = i + baseIndex
                  let rawDirectory = "/tmp/rawDisks"
                  Directory.CreateDirectory(rawDirectory) |> ignore
                  let filename = sprintf "%s.vmdk" @@ Path.Combine(rawDirectory, drive.device.Replace("/", "_"))
  
                  let status = CLI.runCmd @@ sprintf "sudo VBoxManage internalcommands createrawvmdk -filename %s -rawdisk %s" filename drive.device
                  match status with
                  | CLI.Failure (msg,_) -> logger.Fatal(sprintf "Could not attach raw disk %s: %s" drive.device msg)
                  | CLI.Success _ ->
                      CLI.runCmd @@ sprintf "sudo chmod go+rw %s" filename
                      let couldAttachDisk = CLI.runCmd @@ sprintf "sudo VBoxManage storageattach '%s' --storagectl 'SATA Controller' --port %d --device 0 --type hdd --medium %s" name portIndex filename
                      match couldAttachDisk with
                      | CLI.Failure (msg,_) -> logger.Error(sprintf "Could not attach raw disk %s: %s" filename msg)
                      | CLI.Success _ -> ()
  