#!/usr/bin/perl -w
#!perl -w
use strict;;;;;my $p='chomp(@O_my);for(20..48){print substr($O_my[$_],-1);};';#
my $q='if($c<1){;print"$o_my\n\n";}elsif($c>1){;print@O_my;}else{eval$o_my;}';#
my $f='seek DATA,0,0';my $c=defined($_=shift)?$_:1;eval$f;my @O_my=<DATA>;#####
my $o_my=join('',map(chr,map(hex,split(',','70,72,69,6e,74,20,22,4a,75,73,74,'#
.'20,41,6e,6f,74,68,65,72,20,50,65,72,6c,20,77,48,61,63,6b,65,72,2e,5c,6e,22,'#
.'3b,40,5f,3d,6d,61,70,28,63,68,72,2c,6d,61,70,28,68,65,78,2c,6d,61,70,28,7b,'#
.'73,70,72,69,6e,74,66,28,22,25,6c,78,22,2c,6f,72,64,28,24,5f,29,29,7d,73,70,'#
.'6c,69,74,28,27,2c,27,2c,71,71,28,39,2c,38,2c,37,2c,36,2c,35,2c,34,2c,33,2c,'#
.'32,2c,31,2c,30,29,29,29,29,29,3b,66,6f,72,20,28,40,5f,29,7b,70,72,69,6e,74,'#
.'20,22,24,5f,5c,72,22,3b,73,65,6c,65,63,74,28,75,6e,64,65,66,2c,75,6e,64,65,'#
.'66,2c,75,6e,64,65,66,2c,30,2e,33,35,29,3b,7d,70,72,69,6e,74,20,22,62,79,65,'#
.'20,3b,29,5c,72,22,3b,73,6c,65,65,70,28,32,29,3b,66,6f,72,28,30,2e,2e,37,34,'#
.'29,7b,70,72,69,6e,74,20,22,20,22,78,28,24,5f,29,2e,22,62,79,65,20,3b,29,5c,'#
.'72,22,3b,73,65,6c,65,63,74,28,75,6e,64,65,66,2c,75,6e,64,65,66,2c,75,6e,64,'#
.'65,66,2c,30,2e,30,33,29,3b,7d,6d,79,20,24,71,3d,63,68,72,28,32,31,39,29,3b,'#
.'70,72,69,6e,74,20,22,24,71,22,78,28,38,30,29,2e,22,5c,6e,22,3b,70,72,69,6e,'#
.'74,20,22,24,71,22,78,28,38,30,30,2a,39,29,3b,73,65,6c,65,63,74,28,75,6e,64,'#
.'65,66,2c,75,6e,64,65,66,2c,75,6e,64,65,66,2c,30,2e,35,29,3b,70,72,69,6e,74,'#
.'20,22,20,22,78,28,38,30,30,2a,34,29,3b'))));if($c==9){eval$p;}else{eval$q;};#
__DATA__                                                                     #|
# if($user eq 'SUPAK'){&smack($user);}else{&give($props);}                   #.
# i'd like to give props to:                                                 #|
# Erudil for his great goatee and the camel code                             #.
# and jima for dissecting the tre cool camel code                            ##
# I'm sure Larry's tired of everybody shouting at him so i'm gonna stop here #.
# and oh yeah, vroom vroom!                                                  #|
#                                                                            #.
# p.s.                                                                       ##
# curious behaviour of the 'seek' within 'eval'                              #.
# if you do:                                                                 #|
    eval("seek\040DATA,0,0;"); # please note that '(' is '40' in ascii       ##
    my @O=<DATA>;                                                            #|
    print @O;                                                                #|
# it reads the entire file in top to bottom and prints it out                #.
# so does:                                                                   #.
    eval("seek\040DATA,0,0\040;"); ...                                       ##
    eval("seek DATA,0,0;"); ...                                              #|
    eval("seek(DATA,0,0);"); ...                                             #.
# but if you do:                                                             #|
    eval("seek(DATA,0,0;"); ...                                              #|
# only the stuff including and after the line __DATA__ is read in            ##
# and even more curious, if you do                                           #.
    my @O_my=<DATA>;                                                         #|
    eval("seek DATA,0,0;");                                                  #|
    print @O_my;                                                             #|
# only the stuff after, not including, '__DATA__' is printed                 #|
# anyone know why?                                                           #.
###################################### -crazy!insomniac ###character eighty now