p6.p6

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