anchor.diff:    
     let inline addOriginator acc (p, actions) = 
       match actions with
  -    | Originate -> Set.add p acc
  +    | Originate es -> Map.add p actions acc
       | _ -> acc
     
     let rec catchAll allComms covered (p1, f1) below : bool = 
  
positive.code:     if usesTemplate then rconfig
      else 
        let actions = List.map (fun (p, x) -> (Route.getConcrete p, x)) rconfig.Actions
        let origins = Util.List.fold addOriginator Set.empty rconfig.Actions
        
        let pairs = 
          fteAux allComms (makePairs actions)
  
negative.code:     |> Seq.map (fun (x, ys) -> (x, Seq.map snd ys |> List.ofSeq))
      |> List.ofSeq
    
    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
  