BEGIN{FS=_}{for(;NF;$0=a){print;for(a=_;1<NF;)a=((0>e=$NF-$--NF)?-e:e)a}}