anchor.diff:  
   %%% escript stuff
   
  -main2(["file-write-client", Host, PortStr, BlockSizeStr, PrefixStr|FileList]) ->
  +main2(["file-write-client", Host, PortStr, BlockSizeStr, PrefixStr, LocalFile]) ->
       Sock = escript_connect(Host, PortStr),
       BlockSize = list_to_integer(BlockSizeStr),
       Prefix = list_to_binary(PrefixStr),
  -    [escript_upload_file(Sock, BlockSize, Prefix, File) || File <- FileList];
  +    escript_upload_file(Sock, BlockSize, Prefix, LocalFile);
   main2(["1file-write-redundant-client", BlockSizeStr, PrefixStr, LocalFile|HPs]) ->
       BlockSize = list_to_integer(BlockSizeStr),
       Prefix = list_to_binary(PrefixStr),
  
positive.code: 
  escript_upload_file2({ok, Bin}, FH, BlockSize, Prefix, Sock, Acc) ->
      {OffsetHex, SizeHex, File} = upload_chunk_append(Sock, Prefix, Bin),
      io:format("~s ~s ~s\n", [OffsetHex, SizeHex, File]),
      <<Offset:64/big>> = hexstr_to_bin(OffsetHex),
      <<Size:32/big>> = hexstr_to_bin(SizeHex),
      OSF = {Offset, Size, File},
  
negative.code: seq_append_server_loop(DataDir, Prefix, _File, FH, FileNum, Offset)
    when Offset > ?MAX_FILE_SIZE ->
      ok = file:close(FH),
      info_msg("rollover: ~p server at file ~w offset ~w\n",
               [Prefix, FileNum, Offset]),
      run_seq_append_server2(Prefix, DataDir);    
  seq_append_server_loop(DataDir, Prefix, File, FH, FileNum, Offset) ->
      receive
  