$t+=$_,$r{$.}+=$_,$c[$n++%4]+=$_ for((split)[1..4])x/^\s*\d/;print$_.=" $r{$.}"
}{print sprintf"       %10d %10d %10d %10d $t",@c[0..3]