anchor.diff:          ]
   
       let ZoomEvent =
  -        Pattern.EnumStrings "ZoomType" [
  +        EnumStrings "ZoomType" [
               "zoomstart"
               "zoom"
               "zoomend"
           ]
  -        |>! addToClassList
   
       let Zoom =
           ChainedClassNew "Zoom" <| fun chained ->
  
positive.code:             "cardinal-open"
              "monotone"
          ]
          |>! addToClassList
  
      let ChainedClassCoord name members =
          let self = Type.New()
  
negative.code:         ]
  
      let StackOffset =
          EnumStrings "StackOffset" [
              "silhouette"
              "wiggle"
              "expand"
              "zero"
          ]
  
      let StackOrder =
          EnumStrings "StackOrder" [
              "inside-out"
              "reverse"
              "default"
          ]
  
      let Stack =
          ChainedClassNew "Stack" <| fun chained ->
  