anchor.diff:              {no, list_to_binary([Bin1, Bin2])}
       end.
   
  -get_crlf_pos(Bin) ->
  -    get_crlf_pos(Bin, 0).
  -
  -get_crlf_pos(<<$\r, $\n, _/binary>>, Pos) -> {yes, Pos};
  -get_crlf_pos(<<_, Rest/binary>>, Pos)     -> get_crlf_pos(Rest, Pos + 1);
  -get_crlf_pos(<<>>, _)                     -> no.
  +get_crlf_pos(Data) ->
  +    binary_bif_match(Data, <<$\r, $\n>>).
  +
   
   fmt_val(L) when is_list(L)    -> L;
   fmt_val(I) when is_integer(I) -> integer_to_list(I);
  
positive.code:             {no, <<Bin1/binary, Bin2/binary>>}
      end.
  
  get_crlf_crlf_pos(<<$\r, $\n, $\r, $\n, _/binary>>, Pos) -> {yes, Pos};
  get_crlf_crlf_pos(<<_, Rest/binary>>, Pos)               -> get_crlf_crlf_pos(Rest, Pos + 1);
  get_crlf_crlf_pos(<<>>, _)                               -> no.
  
  scan_crlf(Bin) ->
      case get_crlf_pos(Bin) of
  
negative.code:     Bin1_already_scanned_size = size(Bin1) - 4,
      <<Headers_prefix:Bin1_already_scanned_size/binary, Rest/binary>> = Bin1,
      Bin_to_scan = <<Rest/binary, Bin2/binary>>,
      case get_crlf_crlf_pos(Bin_to_scan) of
          {yes, Pos} ->
              {Headers_suffix, <<_:4/binary, Body/binary>>} = split_binary(Bin_to_scan, Pos),
              {yes, <<Headers_prefix/binary, Headers_suffix/binary>>, Body};
  