use Math::GMP;
say length(  Math::GMP->new(10000)->bfac  );