#!perl -lp
use bigint;$_=bfac{$_+0}