Perl6 Proxys getting hammered

gistfile1.txt

class C {
    has $!foo;
    method foo is rw {
        say "foo";
        $!foo;
    }

    has $!bar;
    method bar is rw {
        Proxy.new(
            say "proxy new";
            FETCH => sub ($) {
                say "bar fetch";
                $!bar
            },
            STORE => sub ($, $v) {
                say "bar store";
                $!bar = $v;
            },
            );
    }
}

my $c = C.new;
say "FETCHES";
$c.foo;
$c.bar;
say "STORES";
$c.foo++;
$c.bar++;


OUTPUT:

FETCHES
foo
proxy new
bar fetch
bar fetch
bar fetch
STORES
foo
proxy new
bar fetch
bar fetch
bar fetch
bar fetch
bar fetch
bar fetch
bar fetch
bar store