anchor.diff:          |>! addToClassList
   
       let Projection =
  -        let self = ProjectionType
  -        ChainedClass "Projection" self <| fun chained ->
  +        ChainedClassNew "Projection" <| fun chained ->
               [
                   "apply"      => Float2T?location ^-> Float2T |> WithInline "$this($location)"
                   "invert"     => Float2T?location ^-> Float2T
  
positive.code:         ]
  
      let QuadtreeNode =
          let self = Type.New()
          Class "QuadtreeNode"
          |=> self
          |+> Instance [
              "nodes" =? self * self * self * self
              "leaf"  =? Bool
              "point" =? Float2T
              "x"     =? Float
  
negative.code:     let Feature =
          ChainedClassNew "Feature" <| fun chained -> []
  
      let MultiLineString =
          ChainedClassNew "MultiLineString" <| fun chained -> []
  
      let LineString =
          ChainedClassNew "LineString" <| fun chained -> []
  
      let Circle =
          ChainedClassNew "Circle" <| fun chained ->
  