@r=map{push@{$s->[$x]},$f++for(1..$_);$x++}grep{$_<@{[qw(m o n k s )]}
+}
(6,2,8,4,8,2,9,3);$_='279512038013526146419478207087146097';chop#$_--;
+#
($g="\56"x@r);$l="\40"x@r;@G=/($g)/g;$g=pack"C*",pop@G; $f=pop@r;$x=po
+p
@r;$l=~s;(.)$;\54;;$m=pop@r;$b=pop@r;$u[$b]++;$u[$f+$f]++;@j=split//,$
+l
;print@{[map{@{[map{$n=$g;$n++for+0..$_;$u[$h++]&&$n=~s;^(.);\U\1\E;;$
+n
}@$_]},$j[$k++]}([@G[@{@$s[$b]}]],[@G[@{@$s[$m]}]],[@G[@{@$s[$x]}]],[@
+G
[@{@$s[$f]}]])]},$/;
[download]

 _  _ _  _  
(_|| | |(_|><
 _|