compilation/flap/tests/02-Interpreter/60-while-03.eval.hopix.human-readable

let test =
    let x = ref 5;
    let y = ref 0;
    let z = ref 5;
    while (!x <? 0) {
      x := !x - 1;
      y := !y + 1
    };
    if (!x =? 5) then {
      print_string ("This test is OK!\n")
    } else {
      print_string ("This is KO!\n")
    }