anchor.diff:      binary_to_list(B1)++binary_to_list(B2).
   
   %% Cast binary to list or binary
  +cast(eof, _, _, _) ->
  +    eof;
   cast(B, binary, latin1, latin1) ->
       B;
   cast(B, binary, InEncoding, OutEncoding) ->
  
positive.code: 	   #state{}=State) ->
      get_chars(N, Enc, State);
  
  %%
  %% This optimization gives almost nothing - needs more working... 
  %% Disabled for now. /PaN
  %%
  %% io_request({get_line,Enc,_Prompt}, 
  %%  	   #state{unic=latin1}=State) ->
  %%     get_line(Enc,State);
  
  io_request({get_line,Enc,_Prompt}, 
  	   #state{}=State) ->
      get_chars(io_lib, collect_line, [], Enc, State);
  
  
  io_request({setopts, Opts}, 
  	   #state{}=State) when is_list(Opts) ->
  
negative.code: %% Convert buffer to binary
  cast_binary(Binary) when is_binary(Binary) ->
      Binary;
  cast_binary([<<>>|List]) ->
      cast_binary(List);
  cast_binary(List) when is_list(List) ->
      list_to_binary(List);
  cast_binary(_EOF) ->
  