anchor.diff:      TOCalc = fun(BaseTO) -> to_calc(Factor, BaseTO) end,
       TO     = TOCalc(?SECS(5)),
       ServerPort = 2944,
  +    p("generated command sequences with timeout: ~w msec", [TO]),
       ServerCmds = block_unblock_server_commands(TO, ServerPort),
       {ok, ServerHost} = inet:gethostname(),
       ClientCmds = block_unblock_client_commands(TO, ServerPort, ServerHost),
  
positive.code: server_await_continue_signal(#{parent := Parent} = State, Timeout) ->
      receive
  	{continue, Parent} ->
  	    {ok, State}
      after Timeout ->
  	    {error, timeout}
  
negative.code:      #{id   => 9,
         desc => "Await nothing before receiving (hoppsan) reply",
         cmd  => fun(State) -> 
  		       server_await_nothing(State, TO div 2)
  	       end},
  
       #{id   => 10,
         desc => "Await reply (hoppsan) to message",
         cmd  => fun(State) -> 
  		       server_await_message(State, "hoppsan", TO)
  	       end},
  
       #{id   => 11,
  