scope
    # print a school style multiplication table
    # NB: print outputs a newline at the end, write and printf do not
    write( "    " );
    for i to 12 do printf( " %3d", i ) od;
    printf( "\n   +" );
    for i to 12 do write( "----" ) od;
    for i to 12 do
        printf( "\n%3d|", i );
        for j        to i - 1 do write(  "    "        ) od;
        for j from i to 12    do printf( " %3d", i * j ) od;
    od;
    print()
epocs