define function main (name, arguments)
  let foo = "asdhalsdhald asldhlasdjasda sdajsdbajkd;bhdk bhadjkaSDBASd ujwheiqecvuhxohero";
  let bar = make(<C-string>, size: 42, fill: ' ');
  let bar-size :: <C-int*> = make(<C-int*>);
  bar-size.pointer-value := zlib-compress-bound(size(foo));
  format-out("> %d\n", pointer-value(bar-size));
  format-out("return-code: %d\n", zlib-compress(bar, bar-size, foo, size(foo)));
  format-out("> %=\n", bar);
  exit-application(0);
end function main;