use Math::BigInt;while(<>){print Math::BigInt->new($_)->bfac(),$/}