{
    my $zahl = new Rdw::BigInt 4711;
    $zahl->print('vorher : ');
    $zahl->mul(1000001);
    print "nachher: $zahl\n";
}