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