#!/usr/bin/perl

open IN,"BUILDga4drumbuf.asc";

$lineno=0;
$level=0;

while($l = <IN>)
{
  chomp($l);
  $lineno++;
  if($l =~ /^\s*_b/)
  {
    printf "%6d",$lineno;
    print "*" x $level;
    print "  $l\n";
    $level++;
  }
  elsif($l =~ /^\s*_e/)
  {
    printf "%6d",$lineno;
    print "*" x $level;
    print "  $l\n";
    $level--;
  }
}
print "level: $level\n";