#!perl -lp
use bignum;$_=(0+$_)->bfac