gistfile1.txt

my $supplier = Supplier.new;
my $sinker = supply {
    whenever $supplier.Supply -> $connection {
        my $transformer = supply {
            whenever Supply.interval(1) { }
            whenever $connection {
                emit 0;
            }
        }
        whenever $transformer -> $response { }
    }
};
my $service-tap = $sinker.tap: quit => { .note };

loop {
    $supplier.emit: 1;
}