use Math::Pari qw/ PARI /;
sub PARIdo {
    my $s = shift;
    $s =~ s/[{}\s]+//g;
    PARI($s);
}