anchor.diff:      Pid ! {seq_append, From, Prefix, Chunk},
       exit(normal).
   
  -append_server_dispatch_w(From, Ref, Offset, FileBin, Chunk, DataDir) ->
  -    Prefix = re:replace(FileBin, "\.[0-9]+$", "", [{return, binary}]),
  -    io:format("abs write: File ~p prefix = ~p\n", [FileBin, Prefix]),
  -    Pid = write_server_get_pid(Prefix, DataDir),
  -    Pid ! {write_absolute, From, Ref, Offset, FileBin, Chunk},
  -    exit(normal).
  -
   start_seq_append_server(Prefix, DataDir) ->
       spawn(fun() -> run_seq_append_server(Prefix, DataDir) end).
   
  
positive.code:                           ok ->
                                gen_tcp:send(Sock, <<"OK\n">>);
                            _Else2 ->
                                io:format("Else2 ~p ~p ~p\n",
                                          [Offset, Len, _Else2]),
                                ok = gen_tcp:send(Sock, "ERROR\n")
                        end
  
negative.code:                           {ok, Bytes} when byte_size(Bytes) == Len ->
                                gen_tcp:send(Sock, ["OK\n", Bytes]);
                            _Else2 ->
                                fmt("Else2 ~p ~p ~p\n",
                                          [Offset, Len, _Else2]),
                                ok = gen_tcp:send(Sock, "ERROR\n")
                        end
  