#
# use strict or die
#

use strict;

#
# this is the command we use to start working on @_ in the s///e
#

my$s=';pop';

#
# set $_ to be empty to start with
#

$_='';

#
# a comment
#

# 59 /e, © 2001 Philippe "BooK" Bruhat

#
# ???
#

*_=*ARGV;

#
# set up @_ to contain our list of japh commands
#

@_=qw(4a4a2bfe01ac410d0105f4fd0dae30150dfab448f90208fa0d98 pop print+chr(shift) print+chr(shift) unshift@_,(shift()+shift())x2 push@_,(pop,pop)x24 print+join"\n",@_; unshift@_,(map{unpack'c',$_}split//)[0..25] ; s/../chr(hex$&)/eg $_=substr(shift,0,52) @_=map{s|$|$s|s;$_}@_;pop);

#
# start the chain of evals
#

s//$s/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee;