wat.p6

use nqp;
class Foo {
    multi method new(*@args ($p, *@a)) {
        self.CREATE
    }
}

my int $i = 0;
for ^10000 {
    my @a = <foo bar baz quz>;
    Foo.new(|@a);
    say ++$i;
    nqp::force_gc;
}