sub AUTOLOAD {
    my $constname;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "& not defined" if $constname eq 'constant';
    my $val = constant($constname, @_ ? $_[0] : 0);
    
    if ($! != 0) {
        if ($! =~ /Invalid/ || $!{EINVAL}) {
            print "just before AUTOLOAD\n";
            $AutoLoader::AUTOLOAD = $AUTOLOAD;
            goto &AutoLoader::AUTOLOAD;
        } else {
            croak "Your vendor has not defined MMA macro $constname";
    }   }
    print "just before eval\n";
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}