use Math::BigInt;
@g = ();
$g[0]=[ (Math::BigInt->new(1)) x 126 ];
for $y (1..125){
$g[$y][0] = Math::BigInt->new(1);
for $x (1 .. 125){
$g[$y][$x] = $g[$y - 1][$x] + $g[$y][$x - 1];
}
}
while(<>){
print($g[$_][$_] . "\n");
}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).