(************************************************************
   mult_table.ml	Created      : Fri Jul 26 14:29:15 2002
  			Last modified: Fri Jul 26 14:43:44 2002
  Compile: ocamlopt.opt mult_table.ml -o mult_table #
************************************************************)

let n = 11

let _ =
  begin
    Printf.printf "   | ";
    for ii = 0 to (n-1) do
      Printf.printf "%2d " ii;
    done;
    print_string "\n";
    Printf.printf "---+-";
    for ii = 0 to (n-1) do
      Printf.printf "---";
    done;
    print_string "\n";
    for jj = 0 to (n-1) do
      begin
	Printf.printf "%2d | " jj;
	for ii = 0 to (n-1) do
      	  Printf.printf "%2d " ((ii*jj) mod n)
	done;
	print_string "\n";
      end
    done
  end