anchor.diff:              read_archive_info(IO, [Archive | As], Archives - 1);
           _Error -> error
       end.
  +
  +
  +write_archive_info(_IO, []) -> ok;
  +write_archive_info(IO, [#archive_header{offset=Offset,seconds=Secs,points=Points} | As]) ->
  +    Bytes = <<Offset:32/integer-unsigned-big, Secs:32/integer-unsigned-big, Points:32/integer-unsigned-big>>,
  +    ok = file:write(IO, Bytes),
  +    write_archive_info(IO, As).
   
   
   read_header(<<AggType:32/unsigned-integer-big,
  
positive.code:      ?_assertEqual(error, validate_archives([{10, 5}, {60, 3600}]))
      ].
  
  -endif. % TEST
  
negative.code:     error.
  
  
  make_archive_header(Offset, Seconds, Points) ->
      #archive_header{offset=Offset,
                     seconds=Seconds,
  