#!/bin/bash

grep '^3' | kut 4 8 5 2 3 | process N '$row[1] =~ s/^branches:  [0-9.; ]+;\n//' |
order 2 1r |
perl -pe '
@F = split/\t/,$_,-1;
unshift @F, $F[1] eq $L[2] ? $L[0] : $F[0]; @L=@F; $_=join"\t",@F
' |
order 1r 2r | kutout 1 2 |
undrool 1 | perl -pe '/^[^\t]/ and s/\t/\n\t/; s/\\n$//m; s/\\n/\n/g' |
perl -pe '$a = /^\t/; print "\n" if !$a && $b; $b = $a' |
undrool -d |
perl -pe '1 while s/\t\t/\t.\t/' |
tsv2txt | perl -pe 's/^ +/    /; s/ *$//'