integer
is_numeric(text s)
{
    return !trap_q(alpha, s, 0);
}

integer
main(void)
{
    if (!is_numeric("8192&*")) {
        o_text("Not numeric.\n");
    }
    if (is_numeric("8192")) {
        o_text("Numeric.\n");
    }

    return 0;
}