anchor.diff:  -export([start/0,start_link/0]).
   -export([init/0]).
   
  --export([close/1,
  +-export([close/1,       %Lua commands
            connect/1,
            disconnect/1,
            bind/1,
            unbind/1,
            send/2,
  -         recv/1]).                     %Lua commands
  - 
  +         recv/1]).
  +
   %% Server state.
   -record(state, {}).
   
  
positive.code: 
  %% Internal protocol functions.
  
  cast(Message) ->
      zmq_socket ! {cast,self(),Message},
      ok.
  
  call(Message) ->
      U = whereis(zmq_socket),
  
negative.code:         reply(From, ok),
          loop(State);
      {call,From,{unbind,Address}} ->
  
          %% unbind Address?
      
          %%Context = context(),
          %%reply(From, ets:lookup(zmq_socket, Context)),
  