#!/usr/bin/perl
# What is this?  Is this a JAPH or is it not?
# Perhaps it's just a little jest.  Unless... it's all just a red herring!!
$|=0;open(F,"$0");foreach $pos (47,67,86,102,49,33,19,59,133,116,128,138){seek(F
,$pos,0);print(oct(hex(sin(cos($pos)))))unless(int(cos($pos))+1);print(getc(F));
while($|){print(chr(sqrt($pos)))}print(chr(reverse(pack(c,$pos))))if((int(sqrt((
25*3/15)+31))-6));}close(F);