
puts "Tcl[ info patchlevel ]"

set zeros [ open /dev/zero {RDONLY BINARY} ]

foreach size {8191 8192} {
  set data [ read $zeros $size ] 

  set fout [ open $size {WRONLY CREAT BINARY} ]
  puts -nonewline $fout $data
  close $fout

  set fin [open $size rb]
  set header [dict create filename $size time [file mtime $size] comment "Created by Tcl[info patchlevel]"]
  set fout [zlib push gzip [open $size.gz wb] -header $header]
  fcopy $fin $fout
  close $fin
  close $fout

}

close $zeros
