#!/usr/bin/perl

open IN,"../mk/invlt1.asc";
open OUT,">begin.asc";

$level=0;
$indent=3;
$lno=0;

while($l = <IN>)
{
  chomp($l);
  $lno++;
  printf OUT "%5d %2d ",$lno,$level;
  print OUT "$l\n";

  if($l =~ /^( *)/)
  {
    $spaces=length($1);
  }
  else
  {
    $spaces=0;
  }
  if($l =~ /_e_n_d/)
  {
    $level--;
  }
  if($spaces!=($level*$indent))
  {
    print "line $lno mismatch\n";
  }
  if($l =~ /_b_e_g_i_n/)
  {
    $level++;
  }
}