@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=pop
@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]}]])]},$/;