fun f (x) =
  if (x >? 0) then {
    if (x >? 1) then { "OK" }
    else { "KO" }
  } else { "KO" }

let test =
  print_string ("This test is ");
  print_string (f (33));
  print_string (".\n")