anchor.diff:  port_loop(Port, Timeout, Command) ->
     receive
       noose -> 
  +      io:format("noose~n"),
         port_close(Port),
         noose;
       shutdown ->
  +      io:format("shutdown~n"),
         port_close(Port),
         exit(shutdown);
       {Source, host} -> 
  +      io:format("host~n"),
         Source ! {Port, node()},
         port_loop(Port,Timeout,Command);
       {Source, heat} -> 
  +      io:format("heat~n"),
         Port ! {self(), {command, term_to_binary(ping)}},
         Hot = term_to_binary(pong),
         receive
  
positive.code:               Source ! {self(), Z}
            end
        after Timeout ->
          error_logger:error_msg("Port Wrapper ~p timed out in mid operation (~p)!~n", [self(),Message]),
          % We timed out, which means we need to close and then restart the port
          port_close(Port), % Should SIGPIPE the child.
  
negative.code:       end,
        port_loop(Port,Timeout,Command);
      {_Source, {just_send_a_command, Message}} -> 
        io:format("just~n"),
        Port ! {self(), {command, Message}},
        port_loop(Port,Timeout,Command);
      {Port, {exit_status, Code}} ->
        io:format("exit status ~p~n",[Code]),
        % Hard and Unanticipated Crash
        error_logger:error_msg( "Port closed! ~p~n", [Port] ),
        exit({error, Code});
      {'EXIT',_Pid,shutdown} ->
        io:format("EXIT~n"),
        port_close(Port),
        exit(shutdown);
      Any -> 
  