or download this
# open source file
eval( ( join ( '', reverse( split ( //, 'nepo;' ) ) ) ) . '(MONK,$0)'
+);
...
for ( 1 .. 64 ) { @e = _(@e), pc(@e), I, select $,, $,, $,, .05; @e =
+c(@e) }
# (5, funny) Oh, wait. This isn't /..
for ( $xp++ ) { @camel = @me }