anchor.diff:  
   -spec tcp_flow_parts({Forward::tcp_flow(),Reverse::tcp_flow()},
                        [Idx::non_neg_integer()],
  -                     packet_array()) -> tcp_stream().
  +                     packet_array()) -> tcp_stream_idxs().
   tcp_flow_parts({A,B}, Idxs, PacketArray) ->
       { {{A,B},
          [ I || I <- Idxs,
  
positive.code:      end
       || {Flow, Idxs} <- tcp_flows(PacketArray) ].
  
  %%-type timestamp() :: non_neg_integer(). % Microseconds.
  -type packet_array() :: array(). % array:array({timestamp(), packet()})
  -spec tcp_packet_array(File::string()) -> {packet_array(),
                                             Count::non_neg_integer()}.
  tcp_packet_array(File) ->
  
negative.code: %% TCP Stream Reassembly
  %% =====================
  
  -spec read_tcp_stream(tcp_idx_part(),
                        packet_array()) ->
                               {StartTS::non_neg_integer(), Stream::binary()}.
  read_tcp_stream({{Src, Dst}, [P0Idx | Idxs]}, PacketArray) ->
  