gistfile1.txt

pmichaud@kiwi:~/p6/rakudo$ cat y.pir
.sub 'main'
    $S0 = 'hello'
    $P0 = split '', $S0
  loop:
    unless $P0 goto done
    $S0 = shift $P0
    say $S0
    goto loop
  done:
.end

pmichaud@kiwi:~/p6/rakudo$ install/bin/parrot y.pir
h
e
l
l
o