GZipStream = object of StreamObj
  f: GzFile

GZipStreamRef = ref GZipStream

proc newGZipStream(f: GzFile): GZipStreamRef {.
raises: [], tags: []
.}

proc newGZipStream(filename: string): GZipStreamRef {.
raises: [IOError], tags: []
.}