anchor.diff:      | None -> fun inSet left -> InExpr (left, inSet)
   
   let similarityOperator =
  -    %% +.((%% kw "NOT" -- ws1 -%> ()) * zeroOrOne)
  +    %% +.(zeroOrOne * kw "NOT")
       -? +.[
               %% kw "LIKE" -%> Like
               %% kw "GLOB" -%> Glob
  
positive.code:     %% kw "ATTACH"
      -- zeroOrOne * kw "DATABASE"
      -- +.expr
      -- +.name
      -%> fun ex schemaName -> ex, schemaName
  
  
negative.code:         bracketedName
          backtickedName
          unquotedName
      ]
  
  let nameOrKeyword =
      %[
          quotedName
          bracketedName
          backtickedName
          unquotedNameOrKeyword
      ]
  
  (**
  