anchor.diff:     bind(a, lists:last(Pids));
   
   bind(a, Pid) ->
  -   ioctl(Pid, {a, self()});
  +   ioctl_(Pid, {a, self()});
   bind(b, Pid) ->
  -   ioctl(Pid, {b, self()}).
  +   ioctl_(Pid, {b, self()}).
   
   bind(a, Pids, A)
    when is_list(Pids) ->
  
positive.code:   ,monitor/1
    ,demonitor/1
    ,ioctl/2
  
    % pipe i/o interface
    ,call/2
  
negative.code: ioctl(Pid, Req)
   when is_atom(Req) ->
     call(Pid, {ioctl, Req}).
  
  ioctl_(Pid, {Req, Val})
   when is_atom(Req) ->
     send(Pid, {ioctl, Req, Val}), 
     {ok, Val}.
  
  
  %%
  %% monitor process or node. The process receives messages:
  