anchor.diff:      match typeNode.Element(!!"result") with
           | null -> ""
           | _ ->
  -            sprintf "\tclass %s%s%s\r\n\t{\r\n%s\t}\r\n\r\n"
  +            sprintf "\tpublic class %s%s%s\r\n\t{\r\n%s\t}\r\n\r\n"
                   (typeNode.Parent.Attribute(!!"name").Value |> formatName)
                   (typeNode.Attribute(!!"method").Value |> formatName)
                   "Response"
  
positive.code:                     className
                      requestClassName
  
      sprintf "\tclass %s : %s\r\n\t{\r\n%s\r\n\t}\r\n\r\n"
          className
          baseClass
          ctor
  
negative.code:             
  
  let getType (typeNode : XElement) =
      sprintf "\tpublic class %s\r\n\t{\r\n%s\t}\r\n\r\n"
          (typeNode.Attribute(!!"name").Value)
          (typeNode.Descendants(!!"field") |> collect getField)
  
  