pmichaud@kiwi:~/p6/parrot$ cat gc-sub.pir
.sub 'main' :main
    .local int N
    N = 1000000

    $I0 = 0
  loop:
    unless $I0 < N goto done
    'no-op'()
    inc $I0
    goto loop
  done:

    sleep 1440
.end

.sub 'no-op'
    noop
.end

pmichaud@kiwi:~/p6/parrot$ ./parrot gc-sub.pir &
[1] 25854
pmichaud@kiwi:~/p6/parrot$ ps -C parrot -o vsz,cmd
   VSZ CMD
239476 ./parrot gc-sub.pir
pmichaud@kiwi:~/p6/parrot$