use bigint;print+($_*1)->bfac,$/for<>