anchor.diff:  %% API
   -export([start_link/0]).
   -export ([run_command/1, run_command/2, check_command/1]).
  --export ([collect_output/2]).
  +-export ([collect_output/2, collect_port/2]).
   
   %% gen_server callbacks
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
  
positive.code: %% Description: Initiates the server
  %%--------------------------------------------------------------------
  init([]) ->
  	process_flag(trap_exit, true),
    {ok, #state{
  		processes = ?DICT:new()
  	}}.
  
negative.code: 	case ?DICT:is_key(AtomCommand, State#state.processes) of
  		false -> Reply = nil;
  		true ->
  			[_, Port] = ?DICT:fetch(AtomCommand, State#state.processes),
  			Reply = erlang:port_command(Port, collect)
  	end,
  	{reply, Reply, State};
  handle_call(_Request, _From, State) ->
  