my $inf = exp(~0 >> 1);
    my $nan = $inf / $inf;

    my $neg_inf = -$inf;