Another one, OO-style with subroutines:
$ cat obf2.pasm
bounds 1
trace 0
newclass P0, "Just another Parrot Hacker\n"
shift S0, P5
does I0, P0, S0
add I0, 4
bsr I0
pack S0, 381, I0, I0
invoke
ret$ parrot obf2.pasm Just another Parrot Hacker leo
