anchor.diff:      Msgs = string:tokens(Data," "),
       lists:foreach(fun(Msg) ->
   			  send(Msg,State),
  -			  ct:sleep(10)
  +			  timer:sleep(10)
   		  end, Msgs),
       send("\r\n> ",State),
       {ok,State};
  
positive.code:     accept(State),
      ok = gen_tcp:close(LSock),
      dbg("telnet_server closed the listen socket ~p\n", [LSock]),
      ct:sleep(1000),
      ok.
  
  listen(0, _Port, _Opts) ->
  
negative.code: do_handle_data("echo_delayed_prompt "++Data,State) ->
      [MsStr|EchoData] = string:tokens(Data, " "),
      send(string:join(EchoData,"\n"),State),
      timer:sleep(list_to_integer(MsStr)),
      send("\r\n> ",State),
      {ok,State};
  do_handle_data("disconnect_after " ++WaitStr,State) ->
  