anchor.diff:          printfn "%s" <| so.ReadToEnd()
           match proc.ExitCode with
           | 0 -> ()
  -        | x -> failwithf "%s exited with code %d" name x
  -
  +        | x -> 
  +            printfn "%s exited with code %d" name x
  +            exit x
       // Путь до msbuild должен быть прописан в перменную среды PATH
       start ("cd /d " + path + " & msbuild " + projectName + ".csproj") "msbuild"
   
  
positive.code:     let mutable fileName = ""
      let mutable imageCounter = 1
      let tab = "    "
      let currentBuilder = new StringBuilder()
      let builderAppend = append currentBuilder
      let tempStack = new Stack()
      let getNumber (sizeAttr : string) = sizeAttr.Substring(0, sizeAttr.Length - 2)
      let loginRequest = new StringBuilder()
      try
          while reader.Read() do
              let name = reader.Name
              let depth = reader.Depth
              let depthTab = if depth > 0 then String.replicate (reader.Depth - 1) tab else ""
              match name with
              | "application" when reader.NodeType <> XmlNodeType.EndElement -> projectName <- reader.GetAttribute("name")
              | "action" when reader.NodeType <> XmlNodeType.EndElement ->
                  tempStack.Push(reader.GetAttribute("control-id"))
              | "action" when reader.NodeType = XmlNodeType.EndElement ->
                  // ключ - id контрола, значение - код, который нужно выполнить
                  actions.Add(tempStack.Pop() :?> string, currentBuilder.ToString())
                  currentBuilder.Clear() |> ignore
              | "trigger" when reader.NodeType <> XmlNodeType.EndElement ->
                  tempStack.Push(reader.GetAttribute("event"))
                  tempStack.Push(reader.GetAttribute("form-id"))
              | "trigger" when reader.NodeType = XmlNodeType.EndElement ->
                  // ключ - пара, в которой 1 элемент - имя формы, 2 элемент - событие, занчение - код, который нужно выполнить
                  let formName = tempStack.Pop() :?> string
                  triggers.Add((formName, tempStack.Pop() :?> string), currentBuilder.ToString())
                  currentBuilder.Clear() |> ignore
              | "if" when reader.NodeType <> XmlNodeType.EndElement -> builderAppend <| "\nif (" + reader.GetAttribute("condition") + ")"
              | "then" when reader.NodeType <> XmlNodeType.EndElement -> builderAppend <| "\n{"
              | "then" when reader.NodeType = XmlNodeType.EndElement -> builderAppend <| "\n}"
              | "else" when reader.NodeType <> XmlNodeType.EndElement -> builderAppend <| "\nelse\n{"
              | "else" when reader.NodeType = XmlNodeType.EndElement -> builderAppend <| "\n}"
              | "transition" -> builderAppend <| "\nNavigationService.Navigate(new Uri(\"/" + reader.GetAttribute("form-id") + ".xaml\", UriKind.Relative));"
              | "login-request" -> 
                  builderAppend <| ("\nHttpWebRequest myRequest = (HttpWebRequest)HttpWebRequest.Create(\"" + reader.GetAttribute("url") + "\");
  myRequest.Method = \"POST\";
  myRequest.ContentType = \"application/x-www-form-urlencoded\";
  myRequest.BeginGetRequestStream(new AsyncCallback(GetRequestStreamCallback), myRequest);") 
                  append loginRequest <| "\nprivate void GetRequestStreamCallback(IAsyncResult callbackResult)
  {
      HttpWebRequest myRequest = (HttpWebRequest)callbackResult.AsyncState;
      Stream postStream = myRequest.EndGetRequestStream(callbackResult);
  
      string postData = \"login=\"+" + reader.GetAttribute("login-id") + ".Text + \"&password=\" + " + reader.GetAttribute("password-id") + ".Text;
      byte[] byteArray = Encoding.UTF8.GetBytes(postData);
  
      postStream.Write(byteArray, 0, byteArray.Length);
  
negative.code:                     writeToFile (path + "\\" + fileName + ".xaml.cs") <| newCs.ToString()
                      newCs.Clear() |> ignore
                  else
                      fileName <- tryGetAttribute name "form_name"
  
                      append csprojItems <| "\n     <Compile Include=\"" + fileName + ".xaml.cs\">
        <DependentUpon>" + fileName + ".xaml</DependentUpon>
  