OCamlでforループを回したい

OCamlのforループは以下のように書く。

for 変数 = 初期値 to 終了値 do ... done

以下サンプル。

code:ocaml

let dump_registers (sim : t) =

let cpu = sim.cpu in

for i = 0 to 7 do

for j = 0 to 3 do

let n = (i * 4) + j in

let label = Printf.sprintf "x%02d" n in

let v = cpu.x_registers.(n) in

if j != 0 then print_string "\t";

dump_register label v

done;

print_newline ()

done;

print_newline ()