#!/usr/bin/env perl6
use Libarchive::Simple;

my $supplier = Supplier.new;

my $reader = start { .put for archive-read($supplier.Supply) }

with archive-write($supplier, format => 'paxr', filter => 'gzip') {
    .write: 'afile', "This is some content\n";
    .close
}

await $reader;
