anchor.diff:  using System.Windows.Shapes;
   using Microsoft.Phone.Controls;\nnamespace " + projectName + "
   {
  -    public partial class " + fileName + ": PhoneApplicationPage
  -    {\n"
  +public partial class " + fileName + ": PhoneApplicationPage
  +{\n"
               
  -                    appendConstructor <| "        public " + fileName + "()
  -        {
  -            InitializeComponent();"
  +                    appendConstructor <| "public " + fileName + "()\n{\nInitializeComponent();"
   
               | "LinearLayout" when reader.NodeType <> XmlNodeType.EndElement -> 
                   appendXaml <| "\n" + depthTab + "<StackPanel Margin=\"10,18,10,0\">"
  
positive.code:     let appendXaml = append newXaml
      let appendCs = append newCs
      let appendConstructor = append constructorCs
      let appendAddirions = append additions
      let mutable hasAttr = false
      let mutable fileName = ""
      let mutable imageCounter = 1
      let tab = "    "
      try
          while reader.Read() do
              let name = reader.Name
              let depthTab = String.replicate reader.Depth tab
              match name with
              | "form" ->
                  if reader.NodeType = XmlNodeType.EndElement then
                      appendXaml <| "\n</phone:PhoneApplicationPage>"
                      writeToFile (path + "\\" + fileName + ".xaml") <| newXaml.ToString()
                      newXaml.Clear() |> ignore
                      appendConstructor <| "\n        }"
                      appendCs <| constructorCs.ToString()
                      constructorCs.Clear() |> ignore
                      appendCs <| additions.ToString()
                      additions.Clear() |> ignore
                      appendCs <| "\n" + tab + "}\n}"
                      writeToFile (path + "\\" + fileName + ".xaml.cs") <| newCs.ToString()
                      newCs.Clear() |> ignore
                  else
  
negative.code:     let webClient = new WebClient()
      webClient.DownloadFile(url, fileLocation)
  
  let mutable projectName = "Default"
  
  let csprojItems = new StringBuilder()
  let csprojPages = new StringBuilder()
  
  let actions  = new Hashtable()
  let triggers = new Hashtable()
  
  let parseXml = 
      let newXaml = new StringBuilder()
  