anchor.diff:                          | None -> 9999
                       let syncPenalty = 
                           match strm with
  +                        | EmitEvent _::_ -> 1000
                           | WaitOnEvent _::_ -> -1000
                           | _ -> 0
                       callsBetween + syncPenalty) 
  
positive.code: //                // TODO
  //                generate streamCallHistory activeEvents remainingStreams
              | _ as eop -> 
                  ExeOp(strmIdToProcess, eop) :: generate streamCallHistory activeEvents remainingStreams
          else
              // streams are all empty
  
negative.code: 
              // book keeping
              let execOp = List.head strmToProcess       
              let remainingStreams = streams |> List.map (fun strm -> 
                  if strm = strmToProcess then List.tail strm
                  else strm)
  