#!/usr/bin/env perl6

use v6;

my $mem = 0;
sub report_memory () {
    my $next_mem = qqx[ps -p $*PID -o size=]+0;
    printf "%+8d = %8d K\n", $next_mem-$mem, $next_mem;
    $mem = $next_mem;
}

for ^1e5 {
    my $a = [];
    $a = Any;
    report_memory unless $_ % 1e3;
    Nil;
}