#!/usr/bin/perl -w

use Math::BigInt;

sub silnia_BigInt {
my ($n, $i) = shift;
my $wynik = Math::BigInt->new("1");
return 1 if $n < 1;
for ($i = 2; $i <= $n; $i++) {
       $wynik *= $i;
}
return $wynik;
}

print silnia_BigInt(1000);

