use Math::Pari qw/ifact/;
say length(  ifact(10000)  );