#! /usr/bin/perl -w
@foo=(41,59,10,36,104,101,97,100,61,34,35,33,32,47,117,115,114,47,98,105,110,47,112,101,114,108,32,45,119,92,110,92,64,102,111,111,61,40,34,59,10,112,114,105,110,116,32,36,104,101,97,100,59,10,102,111,114,40,36,105,61,48,59,36,105,60,64,102,111,111,59,36,105,43,43,41,123,10,9,112,114,105,110,116,32,34,36,102,111,111,91,36,105,93,34,59,10,9,105,102,40,36,105,33,61,64,102,111,111,45,49,41,123,112,114,105,110,116,32,34,44,34,59,125,10,9,125,10,102,111,114,101,97,99,104,32,36,105,40,64,102,111,111,41,123,10,9,112,114,105,110,116,32,99,104,114,32,36,105,59,10,9,125,10,10);
$head="#! /usr/bin/perl -w\n\@foo=(";
print $head;
for($i=0;$i<@foo;$i++){
	print "$foo[$i]";
	if($i!=@foo-1){print ",";}
	}
foreach $i(@foo){
	print chr $i;
	}