// Test some of the libio procedures

proc main()
{
    var f = new File("fread.oad", "rb");
    var s = f.read(String[32]);
    "", s, '\n';  // Should be ASCII chars
    f.close();
}