anchor.diff:      |> Seq.map (fun (x, ys) -> (x, Seq.map snd ys |> List.ofSeq))
       |> List.ofSeq
     
  -  let addBackPair origins pairs acc (p, _) = 
  -    if Set.contains p origins then (p, Originate) :: acc
  +  let addBackPair origins pairs acc (p, actions) = 
  +    if Map.containsKey p origins then (p, origins.[p]) :: acc
       else 
         match Map.tryFind p pairs with
         | None -> acc
  
positive.code:     rid <- rid + 1
      let routerConfig = 
        RouterConfiguration
          (rid, name, origins, pfxLists, asLists, cLists, polLists, rMaps, List(peerMap.Values))
      networkConfig.[name] <- routerConfig
    let config = Config.NetworkConfiguration(networkConfig)
    Config.clean config
  
negative.code:   let aux acc k v = Map.add (Set.map (fun (a, b) -> ((updateTag a), b)) k) v acc
    Map.fold aux Map.empty m
  
  let computeExportFilters (exportMap : Reindexer<_>) pfxInfo origins peerInfo commInfo polInfo rMaps = 
    // group export peer by applicable communities
    let relevantCommMap = relevantCommsByPeer exportMap peerInfo
    // group sets of communities with sets of peers
  