/* Test str2num and num2str */

proc main()
{
    var s = "-0xFFFFFFFF";
    var n;

    n = oadl::str2var(s);
    say( "n = ", n, " (should be ", -0xFFFFFFFF, ")\n");
    s = String(n);
    say( "s = ", s, " (length is ", s.length(), ")\n");
}