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