/* Test the tokenize external proc.  Now located in libadv. */

namespace adv {
    // This list needs to match the export list in libadv.oah
    extern Tokenize, Initadv, Width, Getstr;
    extern Insert, Lookup;
}

using extern "libadv";

proc main()
{
    var
        i, n, toks,
        str;
        
    str = readstr();

    toks = adv::Tokenize( str );

    n = toks.length();
    for( i = 0; i < n; i += 1 ) {
        say( "toks[", i, "] = \"", toks[i], "\"\n" );
    }
}