anchor.diff:      | "String" -> "string"
       | x -> x
   
  -let formatPropertyName (x : string) = x.[0].ToString().ToUpper() + x.[1..]
  +let formatName (x : string) = x.[0].ToString().ToUpper() + x.[1..]
   
   let extractCSharpType (fieldNode : XElement) =
       let cSharpType = fieldNode.XPathSelectElement(".//ref").Value |> getCSharpType
  
positive.code:         (typeNode.Attribute(!!"name").Value)
          (typeNode.Descendants(!!"field") |> collect getField)
  
  let getAllTypes () =
      sprintf """namespace DanTup.DartAnalysis.Json
  {
  %s
  }""" (doc.Document.XPathSelectElements("//types/type") |> collect getType)
  
  
  
  
negative.code:     sprintf "%s\t\tpublic %s %s;\r\n"
          (fieldNode |> extractDoc)
          (fieldNode |> extractCSharpType)
          (fieldNode.Attribute(!!"name").Value |> formatName)
              
  
  let getType (typeNode : XElement) =
  