anchor.diff:                  | Originate -> acc
                   | Filters fs -> acc @ fs) []
           let usedTags = allCommTags allFilters
  -        printfn "Used tags: %A" usedTags
           Map.map (updateMatches usedTags) config
   
       (* let private combineInOut filters = 
  
positive.code:             List.map (fun f -> 
                  chooseAction (fun a ->
                      match a with
                      | SetComm(c) when not (Set.contains c usedMatches) -> 
                          printfn "  Removing comm: %s" c
                          None
                      | _ -> Some a) f
              ) fs 
              |> Filters
  
negative.code:     let minimize (config: Map<string,Actions>) =
          config
          |> removeUnobservedTags
          |> removeUnobservedMatches
          //|> removeUnobservedMatch
          //|> combineInOut 
  
  