print sub{ unshift@_,0; $_[0]+= pop while @_>1; return @_ }->( 1..1e6);;
500000500000