my $x = new Rdw::BigInt "123456789";
    my $y = new Rdw::BigInt "123056080";
    my $z = $x + $y;
    print "$x + $y = $z\n";
    $z = $x - $y;
    print "$x - $y = $z\n\n"