anchor.diff:                      className
                       requestClassName
   
  -    sprintf "\tclass %s : %s\r\n\t{\r\n%s\r\n\t}\r\n\r\n"
  +    sprintf "\tpublic class %s : %s\r\n\t{\r\n%s\r\n\t}\r\n\r\n"
           className
           baseClass
           ctor
  
positive.code:     match typeNode.Element(!!"result") with
          | null -> ""
          | _ ->
              sprintf "\tclass %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"
  
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)
  
  