anchor.diff:  %dcreate(Key, Type) ->
   %   floppy_coord_sup:start_fsm([100, self(), create, Key, Type]).
   
  -dupdate(Key, Op) ->
  +update(Key, Op) ->
       io:format("Update ~w ~w ~n", [Key, Op]),
       floppy_coord_sup:start_fsm([self(), update, Key, Op]),    
       receive 
  
positive.code:    %io:format("Floppy: finished~n"),
     %{ok}.
  
  dread(Key, Type) ->
      io:format("Read ~w ~w ~n", [Key, Type]),
      floppy_coord_sup:start_fsm([self(), read, Key, noop]),
      receive 
  
negative.code:     end.
     %floppy_coord_sup:start_fsm([self(), read, Key, something]).
  
  
  