Megatest

Artifact [53598630e3]
Login

Artifact 53598630e39eedca1d244050852960a27f2d2b2e:


(import z3)
(import chicken.port chicken.process-context chicken.pretty-print base64)

(let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
       (zipped-env-str (z3:encode-buffer env-str))
       (b64-env-str    (base64-encode zipped-env-str)))
  (print b64-env-str))