let test =
    let r = ref 1;
    for i from (1) to (10) {
      for i from (1) to (5) {
        r := !r * i
      };
      r := !r * (1 + i / 10);
      for i from (1) to (5) {
        r := !r / i
      }
    };
    print_string ("This test is ");
    print_string (if (!r =? 2) then { "OK!\n" } else { "KO!\n" })