anchor.diff:              |> Seq.map (fun (c, cond) -> c)
               |> String.concat " "
               |> sprintf "%s %s" b
  -            |> Class
  +            |> classy
   
       let inline boolAttribute name (value: bool) =
           attribute name (string value)
  
positive.code:     let inline attribute key value = Attribute.Attribute (key,value)
      let inline property key value = Attribute.Property (key,value)
  
      /// Class attribute helper
      let inline Class value = attribute "class" value
  
      /// Helper to build space separated class
      let inline classList (list: (string*bool) seq) =
  
negative.code:             |> Seq.filter (fun (c,cond) -> cond)
              |> Seq.map (fun (c, cond) -> c)
              |> String.concat " "
              |> classy
  
      /// Helper to build space separated class with a static part
      let classBaseList b (list: (string*bool) seq) =
  