use bigint;$a=1;print($a,$/),($a,$.)=($_*($a+$.),$a)for 0..50