(import zlib chicken.io chicken.port)

(current-input-port (zlib-decompressing-input-port (current-input-port) #:window-bits 47))
(port-for-each write-string (lambda () (read-string 4096)))