or download this
#!/usr/bin/perl
use integer;use bigint;my $f = 815339036749889258964663919539108863582
+51535807693868444296494056897195949107537 + (2**266);$f =~s/(\d)/$1,/
+g;$f =~s/([1-9]),/(2**($1-1)).","/eg;my $scratch = ' ';my $hctarcs;my
+ $a = sub{'(\d+,\d+,\d+,)(?:\d+,){6}'};while ($scratch ne $hctarcs){$
+hctarcs = ' ';for (0..80){my ($fantabulous) = $f =~ /(?:\d+,){$_}(\d+
+)/;my $b=($_/27)*27+3*(($_%9)/3);my $c =($_%9);my $r = ($_/9)*9;if ((
+$fantabulous < 1) or ($fantabulous & ($fantabulous - 1))){ $f =~ s/((
+?:\d+?,){$i})(\d+)/$1$z/;my $hb;map{$hb.=$_}map{/(\d+,\d+,\d+,)(?:\d+
+,){6}(\d+,\d+,\d+,)(?:\d+,){6}(\d+,\d+,\d+,)/}$f=~/(?:\d+,){$b}(.*)/;
+my $hc;map{$hc.=$_}map{/(?:\d+,){$c}(\d+,)(?:\d+,){8}(\d+,)(?:\d+,){8
+}(\d+,)(?:\d+,){8}(\d+,)(?:\d+,){8}(\d+,)(?:\d+,){8}(\d+,)(?:\d+,){8}
+(\d+,)(?:\d+,){8}(\d+,)(?:\d+,){8}(\d+,)/}$f=~/(.*)/;my $hr;map{$hr.=
+$_}map{/((?:\d+,){9})/}$f=~/(?:\d+,){$r}(.*)/;my $ha = $hr.$hc.$hb;my
+ $nset = 511;map{(($_ & ($_ - 1)) and ($_))?():($nset = ($nset & (511
+ ^ $_)))}$ha =~/(\d+),/g;my $mmmm_nice_yummi_scrumptious_bagels = 511
+;map{$mmmm_nice_yummi_scrumptious_bagels = ($mmmm_nice_yummi_scrumpti
+ous_bagels & ($mmmm_nice_yummi_scrumptious_bagels - 1))}$hr=~/(\d+),/
+g;($mmmm_nice_yummi_scrumptious_bagels & ($mmmm_nice_yummi_scrumptiou
+s_bagels - 1))?($nset = $mmmm_nice_yummi_scrumptious_bagels):();$mmmm
+_nice_yummi_scrumptious_bagels = 511;map{$mmmm_nice_yummi_scrumptious
+_bagels = ($mmmm_nice_yummi_scrumptious_bagels & ($mmmm_nice_yummi_sc
+rumptious_bagels - 1))}$hc=~/(\d+),/g;($mmmm_nice_yummi_scrumptious_b
+agels & ($mmmm_nice_yummi_scrumptious_bagels - 1))?($nset = $mmmm_nic
+e_yummi_scrumptious_bagels):();$mmmm_nice_yummi_scrumptious_bagels =
+511;map{$mmmm_nice_yummi_scrumptious_bagels = ($mmmm_nice_yummi_scrum
+ptious_bagels & ($mmmm_nice_yummi_scrumptious_bagels - 1))}$hb=~/(\d+
+),/g;($mmmm_nice_yummi_scrumptious_bagels & ($mmmm_nice_yummi_scrumpt
+ious_bagels - 1))?($nset = $mmmm_nice_yummi_scrumptious_bagels):();$f
+antabulous = $nset;}$hctarcs .= "$fantabulous,";}$scratch = $f;$f = $
+hctarcs;}$f =~ s/(\d+),/$1/g;print "$f\n";