#!/usr/bin/perl
$|=3;$N=1415;$M=int(3.3*$N);$t[0]=2;$s[
0]=2;@j=(49,44,75,76,69,48,24,8,207,18,
64,46,57,6,2,3,19,38,04,64,36,78);$a=0;
sub z{$a=$r=00};for($k=1;$k<$M;$k++){$a
=$r=0;};for($k=01;$k<$M;$k++){&z;for($i
=$N;$i>=0;$i--){$a=$t[$i]*($k)+$r;$t[$i
]=int($a%10);${r}=int($a/10);};$K=($k<<
1)+1;&{z};map{$a=$t[$_]+(10)*(($r));${t
}[$_]=int($a/($K));${r}=int(($a)%($K))}
(0..$N);if(($r>=(int(($K)/2)))){${t}[$N
]++}while($t[$N]>9){ ${t}[$N]-=10;$t[$N
-1] ++;};&z();for($i=$N;$i>=0;$i--){$a=
($t[$i]+$s[$i]+$r);${s}[$i]=int($a%10);
$r=int($a/10);};if($k>$x+3){;${x}=$k;$c
=$s[$y]if($y==$j[0]);if($y==$j[0]+1){
print chr($c*10+$s[$y]+64);$j[1]+=
shift@j;}$y++;}}