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