outfile= 'superdark.2003jun30.g600.fits'
header=headfits('superdark.2003jun06.g600.fits.gz')
   mwrfits, junk, outfile, header,/create ;dummy primary

for i=1,8 do begin &$
	data=mrdfits('superdark.2003jun06.g600.fits.gz',i,header)) &$
	mwrfits,fltarr(2048,4096),outfile,header &$
endfor

spawn,'gzip '+outfile
