gistfile1.txt

.HLL 'foo'

.sub 'main'
    $P0 = get_root_namespace ['parrot';'Integer']
    $P0 = get_class $P0
    $P1 = subclass $P0, 'MyInt'

    $P2 = getinterp
    # $P2.'hll_map'($P0, $P1)

    $I0 = 0
  loop:
    unless $I0 < 100000 goto done
    $P0 = box $I0
    inc $I0
    goto loop
  done:
.end
$ time ./parrot m5.pir

real	0m0.067s
user	0m0.060s
sys	0m0.008s
$