ppx_unicode/test/test_ppx_unicode.ml

let () =
  let a = "å"[@uchar] in
  let b = Buffer.create 16 in
  Buffer.add_utf_8_uchar b a;
  Buffer.add_utf_8_uchar b a;
  let str = Buffer.to_bytes b |> String.of_bytes in
  Printf.printf "meow meow: %s\n%!" str