/* Test the read built-in external */
proc main()
{
    var
        t;

    t = readstr();
    say( t );
    say( "\n" );
}