#include <oxstd.h>

main()
{
    decl file, x = rann(2,3), d, i;

    savemat("iotest8.fmt", x);

    file = fopen("iotest8.fmt", "rbe");
    fseek(file, 'c', 16);     // skip over header

    print("starting at offset: ", fseek(file), "\n");

    for (;;)
    {
        if (fread(file, &d) != 1)
            break;
        print(d, "\n");
    }

    fclose(file);
}

