let () =
  let s = "äëïöü" in
  let u = Strings.uppercase_utf8 s in
  print_endline s;
  print_endline u;
;;