anchor.diff:  
       and GenericIsActiveState =
           { IsActive : string }
  -
  -    and Box =
  -        { Container : string }
  -
  -    and Button =
  -        { Container : string
  -          Size : ButtonSize
  -          Color : LevelAndColor
  -          State : ButtonState
  -          Styles : ButtonStyles }
  -
  -    and ButtonSize =
  -        { IsSmall : string
  -          IsMedium : string
  -          IsLarge : string
  -          IsFullwidth : string }
  -
  -    and ButtonState =
  -        { IsHovered : string
  -          IsFocused : string
  -          IsActive : string
  -          IsLoading : string }
  -
  -    and ButtonStyles =
  -        { IsLink : string
  -          IsOutlined : string
  -          IsInverted : string }
  -
  -    and Card =
  -        { Container : string
  -          Header : CardHeader
  -          Image : string
  -          Content : string
  -          Footer : CardFooter }
  -
  -    and CardHeader =
  -        { Container : string
  -          Title : string
  -          Icon : string }
  -
  -    and CardFooter =
  -        { Container : string
  -          Item : string }
  -
  -    and Content =
  -        { Container : string
  -          Size : StandardSize }
  -
  -    and Control =
  -        { Container : string
  -          HasIcon : ControlHasIcon
  -          State : ControlState }
  -
  -    and ControlHasIcon =
  -        { Left : string
  -          Right : string }
  -
  -    and ControlState =
  -        { IsLoading : string }
  -
  -    and Delete =
  -        { Container : string
  -          Size : StandardSize }
  -
  -    and Field =
  -        { Container : string
  -          Label : string
  -          Body : string
  -          HasAddons : FieldHasAddons
  -          IsGrouped : FieldIsGrouped
  -          Layout : FieldLayout }
  -
  -    and FieldHasAddons =
  -        { Left : string
  -          Centered : string
  -          Right : string
  -          FullWidh : string }
  -
  -    and FieldIsGrouped =
  -        { Left : string
  -          Centered : string
  -          Right : string }
  -
  -    and FieldLayout =
  -        { IsHorizontal : string }
  -
  -    and Grid =
  -        { Columns : Columns
  -          Column : Column }
  -
  -    and Columns =
  -        { Container : string
  -          Alignment : ColumnsAlignment
  -          Spacing : ColumnsSpacing
  -          Display : ColumnsDisplay }
  -
  -    and Column =
  -        { Container : string
  -          Width : GenericColumnSize
  -          Offset : GenericColumnSize
  -          Desktop : ColunScreenTypeSize
  -          Tablet : ColunScreenTypeSize
  -          Mobile : ColunScreenTypeSize
  -          WideScreen : ColunScreenTypeSize }
  -
  -    and ColunScreenTypeSize =
  -        { Width : GenericColumnSize
  -          Offset : GenericColumnSize }
   
       and GenericColumnSize =
           { IsOneQuarter : string
  
positive.code:     let genericIsActiveState : GenericIsActiveState =
          { IsActive = "is-active" }
  
      let box : Box = { Container = "box" }
  
      let button : Button =
          { Container = "button"
            Size =
              { IsSmall = "is-small"
                IsMedium = "is-medium"
                IsLarge = "is-large "
                IsFullwidth = "is-fullwidth" }
            Color = levelAndColor
            State =
                { IsHovered = "is-hovered"
                  IsFocused = "is-focus"
                  IsActive = "is-active"
                  IsLoading = "is-loading" }
            Styles =
                { IsLink = "is-link"
                  IsOutlined = "is-outlined"
                  IsInverted = "is-inverted" } }
  
      let card : Card =
          { Container = "card"
            Header =
              { Container = "card-header"
                Title = "card-header-title"
                Icon ="card-header-icon" }
            Image = "card-image"
            Content = "card-content"
            Footer =
              { Container = "card-footer"
                Item = "card-footer-item" } }
      let content : Content =
          { Container = "content"
            Size = standardSize }
  
      let control : Control =
          { Container = "control"
            HasIcon =
                { Left = "has-icons-left"
                  Right = "has-icons-right" }
            State = { IsLoading = "is-loading" } }
  
      let columns : Columns =
          { Container = "columns"
            Alignment =
              { IsCentered = "is-centered"
                IsVCentered = "is-vcentered" }
            Spacing =
              { IsMultiline = "is-multiline"
                IsGapless = "is-gapless"
                IsGrid = "is-grid" }
            Display =
              { OnMobile = "on-mobile"
                OnlyDesktop = "only-desktop" } }
  
      let generateColumnSize suffix =
          { IsOneQuarter = "is-one-quarter" + suffix
  
negative.code:           Desktop : string
            DesktopOnly : string
            Widescreen : string }
  
      let (++) str1 str2 = str1 + " " + str2
  
  