p6.p6

class Point {
    has $!x;
    has $!y;
}
my int $total := 0;
my int $i;
while ++$i <= 1_000_000 {
    my $p := Point.new(x => 2, y => 3);
    $total := $total + nqp::getattr($p, Point, '$!x') + nqp::getattr($p, Point, '$!y');
}
say($total);