anchor.diff:              "monotone"
           ]
   
  +    let Node =
  +        ChainedClassNew "Node" <| fun chained ->
  +        [
  +            "data" =? Obj
  +            "depth" =? Int
  +            "height" =? Int
  +            "parent" =? TSelf
  +            "children" =? !| TSelf
  +            "value" =? Int + Float
  +
  +            "ancestors" => O ^-> !| TSelf
  +            "descendants" => O ^-> !| TSelf
  +            "leafes" => O ^-> !| TSelf
  +            "filter" => (TSelf ^-> Bool) ^-> !| TSelf
  +            "path" => TSelf ^-> !| TSelf
  +            "links" => O ^-> !| Obj
  +            "sum" => (TSelf ^-> Int + Float) ^-> TSelf
  +            "count" => O ^-> Int
  +            "sort" => (TSelf * TSelf ^-> Int + Float) ^-> TSelf
  +            "each" => (TSelf * Int * TSelf) ^-> !| TSelf
  +            "eachBefore" => (TSelf * Int * TSelf) ^-> !| TSelf
  +            "eachAfter" => (TSelf * Int * TSelf) ^-> !| TSelf
  +            "copy" => O ^-> TSelf
  +
  +        ]
  +
  +    let StratifyCluster =
  +        ChainedClassNew "StratifyCluster" <| fun chained ->
  +        [
  +            "size" => getSetVal chained Int
  +            "nodeSize" => getSetVal chained Int
  +            "separation" => getSetVal chained (Obj * Obj ^-> Int)
  +        ]
  +
  +    let Stratify =
  +        ChainedClassNew "Stratify" <| fun chained ->
  +        [
  +            "id" => getSetVal chained Obj
  +            "parentID" => getSetVal chained Obj
  +            "cluster" => StratifyCluster
  +        ] 
  +
       let ChainedClassCoord name members =
           let self = Type.New()
           let gen =
  
positive.code:                 |> WithInline "'skewY(' + skewAngle + ')'"
          ]
          |>! addToClassList
  
      let D3 =
          Class "d3"
  
negative.code: //    addToClassList <| Generic - UpdateSelectionT
  
      let Selection =
          let selfG = Class "Selection"
          let attrValue = String + Float + Int + Obj
          Generic - fun (t: CodeModel.TypeParameter) ->
              let self = selfG.[t]
  