A full 14 chars over japhy's, with a total of 70 looks like I'm over par for the course :)

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