#!/usr/bin/perl -i

$last = undef;
while(<>) {
  next if m!addvspace!;
  next if m!select.language!;

  m!numberline\s*\{(\d+)\.\d+\}!;
  if ($last) {
    if ($last ne $1) {
      print <<'X';
\addvspace {10\p@ }
\addvspace {10\p@ }
\addvspace {10\p@ }
X
    }
  } else {
    print <<'X';
\select@language {portuges}
\addvspace {10\p@ }
\addvspace {10\p@ }
\addvspace {10\p@ }
X
  }
  $last = $1;
  print $_;
}