#!/usr/bin/perl
while (<>) {
#$orig=$_;
  $print=1 if s/^.*\\patterns{//;
  $stop=1 if $print && s/}.*$//;
  s/\%.*$//;
#print "$print:$stop:$orig";
  if ($print && $_ !~ /^\s*$/) {
    s/\\'a//g;
    s/\\'e//g;
    s/\\'i//g;
    s/\\'o//g;
    s/\\'u//g;
    s/\\'y//g;
    s/\\v e//g;
    s/\\v z//g;
    s/\\v s//g;
    s/\\v c//g;
    s/\\v r//g;
    s/\\v d//g;
    s/\\v t//g;
    s/\\v n//g;
    s/\\r u//g;
    print;
  }
  $stop=$print=0 if $print && $stop;
}
