use Math::BigInt;

$s = 1;
for ($i = 1; $i <= 20; ++$i) {
	$s = ($s * (20 * 2 + 1 - $i)) / $i;
}
print $s;