[%# Run this through tpage - from Template %]

[% numbers = [ 1, 2, 3, 4, 5, 6 ] -%]
[%   end   = '\)' -%]
[%   start = '\w+\(' -%]


my %functions = ();

[% FOR level = numbers -%]
$functions{ [% level %] } = sub { 
  $_[0] =~ s/[% end %]{[% level %]}$//o;  
  $_[0] =~ s/^([% start %]){[% level %]}//o;
  return $_[0];
};
[% END -%]

sub get_proparg_evdb {
 $_ = $_[0];
 my $level  = $_[1] || return $_;

 if ($level == -1) {
   m/\(([^()]+)\)+/;
   return $1;
 } 

 return &{$functions{ $level }}( $_ ) 
   || die 'Add universal function here';
}