anchor.diff:      let minimize (config: Map<string,Actions>) =
           config
           |> removeUnobservedTags
  -        // |> removeUnobservedMatches
  +        |> removeUnobservedMatches
           //|> removeUnobservedMatch
           //|> combineInOut 
   
  
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:                 | Originate -> acc
                  | Filters fs -> acc @ fs) []
          let usedTags = allCommTags allFilters
          Map.map (updateMatches usedTags) config
  
      (* let private combineInOut filters = 
  