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

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