{
    my $u = new Rdw::BigInt "471187652";
    my $v = new Rdw::BigInt "471187651";
    my $w = new Rdw::BigInt "471187653";
    my $x = new Rdw::BigInt "471187652";

    print "$u ", ('<','=','>')[1+($u<=>$v)], " $v\n";
    print "$u ", ('<','=','>')[1+($u<=>$w)], " $w\n";
    print "$u ", ('<','=','>')[1+($u<=>$x)], " $x\n";
}