let first = \(x, y) -> x
let test =
  print_string ("This test is ");
  print_string (first ("OK", "KO"));
  print_string (".\n")