#!/usr/bin/perl -w
use PARI::822;

PARI::822::read(\%funcs,$_,1)
  for ( grep { -f $_ && ! m{/CVS/} && !/.(orig|rej)$/ } @ARGV );

for (keys %funcs)
{
  $funcs{$_}->{'Class'} = 'basic' if (!defined($funcs{$_}->{'Class'}));
}
PARI::822::write(\%funcs);