# 789_123456789_ # 123456789_123456789_123456789_123456789_123456789_123456!!!!!!!!!!!!!! sub p {@_=(1,@_);for(1..pop){print"@_\n";map{$_=abs;$_[$_+1]+=$_[$_]}-$#_..0}}