(import (chicken io) (chicken port) z3)
(with-output-to-port (z3:open-compressed-output-file "hello.gz")
  (lambda () (print "hello")))
(with-input-from-port (z3:open-compressed-input-file "hello.gz")
  (lambda () (print (read-line))))