let test =
  let x = "This test is KO.\n";
  let x = (
    let x = "This test is";
    print_string (x)
  );
  print_string (" OK!\n")