anchor.diff:              XElement(xname "bindings",
                   XElement(xname "binding",
                       XAttribute(xname "protocol", "http"),
  -                    XAttribute(xname "bindingInformation", ":" + port + ":" + hostName)
  +                    XAttribute(xname "bindingInformation", ":" + port.ToString() + ":" + hostName)
                   )
               )
           )
  
positive.code: 
  let xname s = XName.Get(s)
  
  let createConfigFile(name, rootDirectory, path, hostName, port) =
      let uniqueConfigFile = Path.Combine(rootDirectory, "iisexpress-" + Guid.NewGuid().ToString() + ".config")
      let templateFilename = Path.Combine(rootDirectory, "iisexpress-template.config")
      use template = File.OpenRead(templateFilename)
      let xml = XDocument.Load(template)   
  
      let sitesElement = xml.Root.Element(xname "system.applicationHost").Element(xname "sites")    
      let appElement =
          XElement(xname "site",
              XAttribute(xname "name", name),
              XAttribute(xname "id", id.ToString()),
              XAttribute(xname "serverAutoStart", "true"),
  
              XElement(xname "application",
  
negative.code:     xml.Save(uniqueConfigFile)
      uniqueConfigFile
  
  let StartWebsite configFileName =
      ProcessStartInfo(
          FileName = IISExpressPath,
          Arguments = sprintf "/config:\"%s\" /siteid:%d" configFileName 1,
          RedirectStandardError = true,
          RedirectStandardOutput = true,
          UseShellExecute = false)
      |> Process.Start
  
  let p =
      createConfigFile("msu.Prestige", @"C:\Code\prestige\iisexpress-template.config", @"C:\Code\prestige\src\msu.Prestige", "localhost", 54766)
      |> StartWebsite
  
  
  p.Refresh()
  p.Kill()