$a= 0xffffffff;     print $a,"\n";
    $a += 1;            print $a,"\n";
    $a += 1;            print $a,"\n";
    $a += 1;            print $a,"\n";
    $a += 1;            print "\t\t",$a,"\n";
    print "non-fract:\t", int($a), "\n";
    printf "unsigned long:\t%u\n", $a;
    print "unsigned long:\t", $a|0, "\n";