perl -MMath::Pari -e'Math::Pari::setprecision(10000); my $foo = PARI(5); my $bar = $foo->sqrt; print $bar,$/,$bar**2,$/'