(import (chicken io) (chicken port) z3)

(let ((port (z3:open-compressed-output-file "hello.gz")))
  (write-line "hello" port)
  (close-output-port port))

(let ((port (z3:open-compressed-input-file "hello.gz")))
  (print (read-line port))
  (close-input-port port))