anchor.diff:              convName   => O ^-> convType
               "toString" => O ^-> String
           ]
  +        |>! addToClassList
   
       let Hsl = ColorType "hsl" "rgb" Rgb
       let Lab = ColorType "lab" "rgb" Rgb
  
positive.code:         ]
  
      let StackOffset =
          Pattern.EnumStrings "StackOffset" [
              "silhouette"
              "wiggle"
              "expand"
              "zero"
          ]
          |>! addToClassList
  
      let StackOrder =
          Pattern.EnumStrings "StackOrder" [
              "inside-out"
              "reverse"
              "default"
          ]
          |>! addToClassList
  
      let Stack =
          ChainedClassNew "Stack" <| fun chained ->
  
negative.code:             "closePath" => O ^-> O
          ]
  
      let Feature =
          ChainedClassNew "Feature" <| fun chained -> []
  
      let Path =
          ChainedClassNew "Path" <| fun chained ->
  