anchor.diff:        addRuleToPeer p routerToImportSb (matchStr + "\"")
         addRuleToPeer p routerToImportSb (actStr + lpStr)
     | State (c, p) -> 
  -    let commMatch = sprintf "& community is %d\"" c
  +    let commMatch = sprintf "& community is %s\"" c
       addRuleToPeer p routerToImportSb (matchStr + commMatch)
       addRuleToPeer p routerToImportSb (actStr + lpStr)
  -  | PathRE r -> routerTosb //TODO for later
  +  | PathRE r -> routerToImportSb //TODO for later
   
   
   // get the actions in cbgp format
  
positive.code:          let s = Route.toString p // get rid of brackets/
           s, s
        | Comm(p, c) -> Route.toString p, "comm=" + c // ??
    let exitStr = "\n            exit"
     match actions with
     | Filters(o, fs) -> 
        match o with
  
negative.code:     getCBGPActions sb config.PolInfo pred actions routerNameToIp router
  
    for kv in routerToEsb do
      let peer = kv.Key 
      bprintf sb ("\n bgp router " + routerIp + " peer " + peer)
      bprintf sb "\n    filter out"
      bprintf sb kv.Value
      bprintf sb "\n    filter in"
      bprintf sb (Map.find routerToIsb peer)
    bprintf sb "\n\n"
  