gistfile1.none

pmichaud@kiwi:~/nom/parrot$ cat a.pir
.sub 'main' :main
    .lex '$a', $P99
    $P99 = box 1

    .local pmc lexpad, lexiter
    $P0 = getinterp
    lexpad = $P0['lexpad']

    lexiter = iter lexpad
  loop:
    unless lexiter goto done
    .local pmc item, key, value
    item = shift lexiter
    key = item.'key'()
    value = item.'value'()
    print "item.key        = "
    say key
    print "item.value      = "
    say value
    print "lexpad[item.key]= "
    $P0 = lexpad[key]
    say $P0
    goto loop
  done:
.end
pmichaud@kiwi:~/nom/parrot$ ./parrot a.pir
item.key        = $a
item.value      = 23
lexpad[item.key]= 1
pmichaud@kiwi:~/nom/parrot$