anchor.diff:  	    ploop(user, State2);
   	{error, Reason, State2} ->
   	    State#pstate.from ! {pop_response, {error, Reason}},
  -	    gen_tcp:close(State#pstate.port);
  +	    pop_close(State#pstate.port);
   	{more, State2} ->
   	    ploop(init, State2)
       end;
  
positive.code: 					  State2#pstate.reply]});
  	{more, State2} ->
  	    ploop(sl, State2)
      end;
  ploop(sized, State) ->
      case receive_reply(State) of
  
negative.code: 	    ploop(pass, State2);
  	{error, Reason, State2} ->
  	    State#pstate.from ! {pop_response, {error, Reason}},
  	    pop_close(State#pstate.port);
  	{more, State2} ->
  	    ploop(user, State2)
      end;
  